SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: sirespi en Sábado 30 de Octubre de 2004, 12:23

Título: Problema Al Imprimir
Publicado por: sirespi en Sábado 30 de Octubre de 2004, 12:23

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

Título: Re: Problema Al Imprimir
Publicado por: RadicalEd en Sábado 30 de Octubre de 2004, 18:46

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

Código: Text

1.  
2. Private Sub CmdPrint()
3.  dim x
4.  x = MsgBox ("Desea Imprimir", vbOkCancel,"Imprimir")
5.  If x = vbOk Then
6.     Call Imprimir
7.  Else
8.     Exit Sub
9.  End If
10. End Sub
11.  

OJALA TE SIRVA CHAO