Modificar longitud página impresora continua.
Publicado por Alex (2 intervenciones) el 10/03/2015 00:56:15
Hola llevo 3 días buscando y probando y nada.
Para imprimir albaranes por la impresora continua tengo esta pequeña rutina (copiada de un ejemplo) para poder ver en que equipo estoy (hay 2 pcs) y pasar de la impresora de tinta a la impresora matricial. Hasta ahí no hay problema, pero quiero especificar antes de imprimir el albaran el tamaño del mismo (longitud 178mm) y eso es lo que no se como hacerlo.
Adjunto la rutina que tengo puesta antes de imprimir el informe.
He encontrado un ejemplo de DevmodePrt pero no se aplicarlo aqui
Para imprimir albaranes por la impresora continua tengo esta pequeña rutina (copiada de un ejemplo) para poder ver en que equipo estoy (hay 2 pcs) y pasar de la impresora de tinta a la impresora matricial. Hasta ahí no hay problema, pero quiero especificar antes de imprimir el albaran el tamaño del mismo (longitud 178mm) y eso es lo que no se como hacerlo.
Adjunto la rutina que tengo puesta antes de imprimir el informe.
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
Dim dr As aht_tagDeviceRec
Dim intRetval As Integer
Dim nomimpre, nomdrive, nomport As String
If ahtGetDefaultPrinter(dr) Then
Debug.Print "Device: "; dr.drDeviceName
nomimpre = dr.drDeviceName
Debug.Print "Driver: "; dr.drDriverName
nomdrive = dr.drDriverName
Debug.Print "Port : "; dr.drPort
nomport = dr.drPort
End If
'Cambio a impresora matricial para imprimir albaran.
If nomimpre = "Brother MFC-J825DW Printer" Then
dr.drDeviceName = "EPSON LQ-350 ESC/P2"
dr.drDriverName = "winspool"
dr.drPort = "LPT1:"
Else
dr.drDeviceName = "\\MARTA\EPSON LQ-350 ESC/P2"
dr.drDriverName = "winspool"
dr.drPort = "Ne05:"
End If
intRetval = ahtSetDefaultPrinter(dr)
Dim stDocName As String
stDocName = "Reimprimir AlbaraB"
DoCmd.OpenReport stDocName, acNormal
He encontrado un ejemplo de DevmodePrt pero no se aplicarlo aqui
Valora esta pregunta
0