Mu buenas a todos. A ver, tengo una aplicacion en al que cargo una imagen en un picturebox. En ese formulario tengo un commonfialog para poder imprimirla. EL caso es qeu el dialogo de imprimir me lo muestra bien,si le doy a imprimir me lo imprime, pero..... si le doy a cancelar tambien, jejejeje
COmo resulevo esto?? este es el codigo, es pequeñito
Public Sub Imprimir()
Dim var As String
var = Label1.Caption
On Error Resume Next
With dlgCommonDialog
.DialogTitle = "Print"
.CancelError = True
.Flags = cdlPDReturnDC + cdlPDNoPageNums
.Orientation = cdlLandscape
.ShowPrinter
Printer.Print var
Printer.PaintPicture Picture1.Image, 0, 200
Printer.EndDoc
End With
End Sub
A ver si alguien me echa una manilla. Ciao
