Public Sub Escribir( _
        ByVal Texto As String, _
        Optional ByVal Dispositivo As String = "LPT1")
    ' Si no se pasa el nombre de un Dispositivo
    ' imprime directamente en la impresora conectada a LPT1
    ' el texto pasado como parámetro
    Dim lngFichero As Long
    lngFichero = FreeFile
    Open Dispositivo For Output As #lngFichero
    Print #lngFichero, Texto
    Close #lngFichero
End Sub

Public Sub PruebaImpresion()
    Dim lngFichero As Long
    Dim i As Long

    lngFichero = FreeFile
    Open "LPT1" For Output As #lngFichero

    For i = 1 To 45
        Print #lngFichero, "Línea Nº " & Format(i, "000")
    Next
    Print #lngFichero, Chr$(12)
    Close #lngFichero
End Sub

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)