SoloCodigo

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