
Evitar salto de pagina
Publicado por Borja (2 intervenciones) el 22/02/2016 11:47:25
Buenos dias,
tengo un programita para generar unas listas, y se deben imprimir en una impresora tipo tickets, en papel continuo .
El problema, es que cuando mando a imprimir un listado largo, automaticamente me manda unos saltos de linea como si fuera el "fin de pagina", y sigue imprimiendo.
Al imprimir ese salto de pagina, se me descuadra el listado, el cual deberia salir todo correlativo.
He buscado en la configuracion de la impresora, y n o encuentro manera alguna de anular este salto de pagina.
Hay alguna manera de "engañar" a la impresora, o al programa que manda a imprimir, para que éste se crea que esta imprimiendo todavia en la linea 1? Asi al llegar a la linea x que corresponderia al finald e la pagina, no dejaria ese espacio...
Os mando un trozo del codigo que manda a imprimir, a ver si a alguien se le ocurre como hacerlo:
tengo un programita para generar unas listas, y se deben imprimir en una impresora tipo tickets, en papel continuo .
El problema, es que cuando mando a imprimir un listado largo, automaticamente me manda unos saltos de linea como si fuera el "fin de pagina", y sigue imprimiendo.
Al imprimir ese salto de pagina, se me descuadra el listado, el cual deberia salir todo correlativo.
He buscado en la configuracion de la impresora, y n o encuentro manera alguna de anular este salto de pagina.
Hay alguna manera de "engañar" a la impresora, o al programa que manda a imprimir, para que éste se crea que esta imprimiendo todavia en la linea 1? Asi al llegar a la linea x que corresponderia al finald e la pagina, no dejaria ese espacio...
Os mando un trozo del codigo que manda a imprimir, a ver si a alguien se le ocurre como hacerlo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Imprimir_Click()
Dim petit, gran As Integer
Dim Bold As Boolean
Dim Interlineado As Integer
Interlineado = 50
petit = 11
gran = 17
Printer.Font = "free pixel Regular"
Printer.FontSize = petit
Bold = False
'Printer.Height = 10000
Printer.Print ("")
Printer.Print ("")
Printer.Print ("")
Printer.Print ("")
For i = 1 To frm_listado.zgrid.Rows - 1
Printer.Print Tab(3); (frm_listado.zgrid.Text)
Printer.CurrentY = Printer.CurrentY - Interlineado - petit
Next
Printer.EndDoc
frm_listado.zgrid.Visible = False
frm_listado.tgrid.Visible = False
frm_listado.pb.Value = 0
End Sub
Valora esta pregunta


0