Impresión en multiples bandejas de Impresora

[Bazooka]

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

[Virgil Tracy]

¿ 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

Código: (VB) [Seleccionar]

'usando objeto printer
Printer.PaperBin = vbPRBNUpper '(1) bandeja superior
Printer.PaperBin = vbPRBNLower '(2) bandeja inferior
Printer.PaperBin = vbPRBNMiddle '(3) bandeja intermedia

Con ActiveReport esto

Código: (VB) [Seleccionar]

'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

Código: (VB) [Seleccionar]

'usando crystalreport
CrystalReport1.PaperSource = crPRBinUpper '(1) bandeja superior
CrystalReport1.PaperSource = crPRBinLower '(2) bandeja inferior
CrystalReport1.PaperSource = crPRBinMiddle '(3) bandeja intermedia

Espero te sirva 

[Bazooka]

¿ 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!

[Bazooka]

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/

Alternar bandejas: Cargando en las bandejas los papeles de distinto color, permite tener a la salida de la impresora el trabajo ya intercalado.

[Bazooka]

¿ 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

Código: (VB) [Seleccionar]

'usando objeto printer
Printer.PaperBin = vbPRBNUpper '(1) bandeja superior
Printer.PaperBin = vbPRBNLower '(2) bandeja inferior
Printer.PaperBin = vbPRBNMiddle '(3) bandeja intermedia

Con ActiveReport esto

Código: (VB) [Seleccionar]

'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

Código: [Seleccionar]

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