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
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)