Programación General > Visual Basic 6.0 e inferiores

 Re: otra fácil: Cómo imprimo?

(1/1)

gabperez:
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.

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

quesito:
de donde eres

Navegación

[0] Índice de Mensajes