Ayuda en impresión
Saludos, como puedo imprimir un archivo *.txt pero me tiene que paginar use una función pero no me resulta muy funcional, como puedo usar el commondialog.showprinter pero me tiene que abrir ese documento
1 Respuesta
Respuesta de leosoft
1
Para imprimir un archivo .txt el código seria algo así:
Dim texto As String
Dim linea As Byte
archivo = 'nombre y ruta del archivo a imprimir
Open archivo For Input As #1
Do While Not EOF(1)
Line Input #1, texto
Printer.Print texto
linea = linea + 1
If linea = 80 Then
Printer.Print " "
texto = "Pagina Nº " & Printer.Page 'esto te pone el numero de pagina
Printer.Print texto
Printer.NewPage
linea = 0
End If
Loop
Close #1
Printer.Print " "
texto = "Pagina Nº " & Printer.Page 'esto te pone el numero de pagina
Printer.EndDoc
el numero de lineas de texto que te puede imprimir depende directamente de la fuente, su tamaño y el tamaño de pagina, eso lo podes cambiar con Printer.Fontsize Printer.Papersize y varias mas, con la fuente predeterminada te puede imprimir 80 lineas, si usas una fuente mas grande tendrias que probar cuantas lineas entran en una pagina y lo cambiarias en el codigo donde dice If linea = 80 then.
Dim texto As String
Dim linea As Byte
archivo = 'nombre y ruta del archivo a imprimir
Open archivo For Input As #1
Do While Not EOF(1)
Line Input #1, texto
Printer.Print texto
linea = linea + 1
If linea = 80 Then
Printer.Print " "
texto = "Pagina Nº " & Printer.Page 'esto te pone el numero de pagina
Printer.Print texto
Printer.NewPage
linea = 0
End If
Loop
Close #1
Printer.Print " "
texto = "Pagina Nº " & Printer.Page 'esto te pone el numero de pagina
Printer.EndDoc
el numero de lineas de texto que te puede imprimir depende directamente de la fuente, su tamaño y el tamaño de pagina, eso lo podes cambiar con Printer.Fontsize Printer.Papersize y varias mas, con la fuente predeterminada te puede imprimir 80 lineas, si usas una fuente mas grande tendrias que probar cuantas lineas entran en una pagina y lo cambiarias en el codigo donde dice If linea = 80 then.
