Codigo Autocortante
Publicado por Mario (2 intervenciones) el 30/06/2018 00:30:13
buen dia, como puedo hacer que al imprimir se corte en automatico la hoja ??
este es el codigo que uso para imprimir pero no me lo corta a pesar que uso una impresora autocortante
Gracias
este es el codigo que uso para imprimir pero no me lo corta a pesar que uso una impresora autocortante
Gracias
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
26
27
28
29
30
31
32
33
34
Printer.Copies = 2
Printer.Print " " + lbltit.Caption
Printer.Print ""
Printer.Print lblfec.Caption
Printer.Print ""
Printer.Print "Chofer:" + " " + txtnom.Text
Printer.Print ""
Printer.Print "Mesa:" + " " + txtmes.Text
Printer.Print ""
Printer.Print "# Personas:" + " " + txtper.Text
Printer.Print ""
Printer.Print "Celular:" + " " + txtcel.Text
Printer.Print ""
Printer.Print "Numero Placa:" + " " + txtpla.Text
Printer.Print ""
Printer.Print "Importe:" + " " + txtcant.Text
Printer.Print ""
Printer.Print ""
Printer.Print ""
Printer.Print ""
Printer.Print ""
Printer.Print ""
Printer.Print "Nombre/Firma Cajero: -----------------"
Printer.Print vbCrLfPrinter.Print vbCrLfPrinter.Print vbCrLfPrinter.Print vbCrLfPrinter.Print "Nombre/Firma Gerente: -----------------"
Printer.Print vbCrLfPrinter.Print vbCrLfPrinter.Print vbCrLfPrinter.Print vbCrLf;Printer.Print "Nombre/Firma Chofer: -----------------"
Printer.EndDoc 'Se imprime
Valora esta pregunta
0
