SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: gabperez en Miércoles 17 de Julio de 2002, 13:19

Título: Re: otra fácil: Cómo imprimo?
Publicado por: gabperez en Miércoles 17 de Julio de 2002, 13:19

Perdón la ignorancia. Pero soy nuevo en esto, aunque me fascina. .. La pregunta es qué código básico va en un command button para que me imprima los captions de mis labels, por ejemplo? Gracias otra vez.

Título: Re: otra fácil: Cómo imprimo?
Publicado por: cpmario en Lunes 22 de Julio de 2002, 07:38

La siguiente rutina hace el trabajo:

Private Sub cmdPrint_Click()
    Dim ctrTemp As Control
    Dim objForm As Form
    Dim intPrintTab As Integer
    On Error GoTo ErrorcmdPrint
    Screen.MousePointer = vbHourglass
    cmdPrint.Enabled = False
    Set objForm = Me
    Printer.Print ""
    Printer.Font = "Times New Roman"
    Printer.FontSize = 12
    Printer.Font.Bold = True
    intPrintTab = 8
    For Each ctrTemp In objForm.Controls
        If TypeOf ctrTemp Is Label Then
            Printer.Print Tab(intPrintTab); ctrTemp.Caption
        End If
    Next ctrTemp
    Printer.EndDoc
    cmdPrint.Enabled = True
    Screen.MousePointer = vbDefault
Exit Sub
ErrorcmdPrint:
    MsgBox "Error al imprimir, revise su impresora." & vbCrLf & Err.Description, vbCritical, "Test"
    cmdPrint.Enabled = True
    Screen.MousePointer = vbDefault
End Sub

Título: otra fácil: Cómo imprimo?
Publicado por: quesito en Jueves 26 de Septiembre de 2002, 23:42

de donde eres