Visual Basic - Modificar longitud página impresora continua.

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Alex

Modificar longitud página impresora continua.

Publicado por Alex alexrscat@hotmail.es (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.

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder