Programación General > Visual Basic 6.0 e inferiores

 Problema Al Imprimir

(1/1)

sirespi:
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

RadicalEd:
UTILIZAS UNA DESICION CON UN MSGBOX O QUE POR QUE PUEDES HACERLO ASI:

--- Código: Text --- Private Sub CmdPrint() dim x x = MsgBox ("Desea Imprimir", vbOkCancel,"Imprimir") If x = vbOk Then    Call Imprimir Else    Exit Sub End IfEnd Sub OJALA TE SIRVA CHAO

Navegación

[0] Índice de Mensajes