Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: Bazooka en Febrero 29, 2012, 02:01:10 pm
-
Hola amigos alguien tiene idea de como desde el codigo indicar de que bandeja se tomará el papel para lmprimir por que necesito ir alternando 1 hoja de cada bandeja de una impresora laser que tiene 2 .
Gracias
-
¿ Que impresora tienes ?, ¿ que usas para imprimir ?, ¿ Objeto Printer, data report, crystal report, active report ? :)
Buscando en internet encontre que con el objeto printer cambiando el paperbin
'usando objeto printer
Printer.PaperBin = vbPRBNUpper '(1) bandeja superior
Printer.PaperBin = vbPRBNLower '(2) bandeja inferior
Printer.PaperBin = vbPRBNMiddle '(3) bandeja intermedia
Con ActiveReport esto
(http://i39.tinypic.com/dwq3bd.png)
'usando activereport
ActiveReport1.PageSettings.PaperBin = vbPRBNUpper '(1) bandeja superior
ActiveReport1.PageSettings.PaperBin = vbPRBNLower '(2) bandeja inferior
ActiveReport1.PageSettings.PaperBin = vbPRBNMiddle '(3) bandeja intermedia
Para Crystal Report esto
'usando crystalreport
CrystalReport1.PaperSource = crPRBinUpper '(1) bandeja superior
CrystalReport1.PaperSource = crPRBinLower '(2) bandeja inferior
CrystalReport1.PaperSource = crPRBinMiddle '(3) bandeja intermedia
Espero te sirva ;D
-
¿ Que impresora tienes ?, ¿ que usas para imprimir ?, ¿ Objeto Printer, data report, crystal report, active report ? :)
No es ninguna impresora en especial por que es para un programa que brinde esa funcionalidad para el ususario que tenga impresoras con multiples bandejas.
Y el medio seria a travez del objeto printer!
-
Hola amigos retomo este tema por que tengo un cliente muy interesado en el tema que le construya algo que pueda utilizar las 2 bandejas de su impresora para imprimir tomando una hoja de cada una y de ese modo intercalando papel blanco / papel rosado /......... y asi!!
He visto en que poder se puede hacer por que este soft lo hace
http://numeradoronline.com.ar/pcn4/ (http://numeradoronline.com.ar/pcn4/)
Alternar bandejas: Cargando en las bandejas los papeles de distinto color, permite tener a la salida de la impresora el trabajo ya intercalado.
-
¿ Que impresora tienes ?, ¿ que usas para imprimir ?, ¿ Objeto Printer, data report, crystal report, active report ? :)
Buscando en internet encontre que con el objeto printer cambiando el paperbin
'usando objeto printer
Printer.PaperBin = vbPRBNUpper '(1) bandeja superior
Printer.PaperBin = vbPRBNLower '(2) bandeja inferior
Printer.PaperBin = vbPRBNMiddle '(3) bandeja intermedia
Con ActiveReport esto
(http://i39.tinypic.com/dwq3bd.png)
'usando activereport
ActiveReport1.PageSettings.PaperBin = vbPRBNUpper '(1) bandeja superior
ActiveReport1.PageSettings.PaperBin = vbPRBNLower '(2) bandeja inferior
ActiveReport1.PageSettings.PaperBin = vbPRBNMiddle '(3) bandeja intermedia
Hola Amigo, fijate que estoy haciendo lo siguiente en el activereport
Private Sub Detail_BeforePrint()
Static FLAG As Boolean
If Not FLAG Then
AC.PageSettings.PaperBin = vbPRBNUpper '(1) bandeja superior
FLAG = True
Else
AC.PageSettings.PaperBin = vbPRBNLower '(2) bandeja inferior
FLAG = False
End If
'ActiveReport1.PageSettings.PaperBin = vbPRBNMiddle '(3) bandeja intermedia
End Sub
Y se supone que deberia tirar una hoja en cada bandeja pero me sale una bien y una en blanco y asi!!!
Siendo que en la vista del reporte esta ok!!
subo el proyecto para que veas si me ayudas por favor!
www.misimagenesgratis.com.ar/MULTIBANDEJA.rar (http://www.misimagenesgratis.com.ar/MULTIBANDEJA.rar)