Predeterminar Impresora - VB-MUNDO

Campos_S · #1 (**permalink**) 30-06-2004, 01:00:00

Predeterminar Impresora

QUE TAL AMIGOS:

Tengo por aquí una pequeña duda:

Tengo un sistema que me imprime Tickets de Venta, pero que a la vez también muestra Reportes en Tamaño carta. Es decir tengo una Miniprinter, y una Impresora Laser.

Como le hago para predeterminar una impresora dependiendo de lo que quiera hacer.

Espero puedan ayudarme, de antemano les agradezco infinitamente.

</TR>

acalanto · #2 (**permalink**) 30-06-2004, 01:00:00

RE: Predeterminar Impresora

Tienes que utilizar el método printer y la colección printers. Cuando Printers(i).DeviceName = <nombreimpresoradeseada> tienes que hacer set Printer = Printers(i).

P. Ej.
<BLOCKQUOTE><PRE><SPAN class=texto_mini>Codigo:</SPAN><HR>

Campos_S · #3 (**permalink**) 30-06-2004, 01:00:00

RE: Predeterminar Impresora

Ok.

Gracias Acalanto, deja pruebo la idea y en seguida te digo que pasa.

</TR>

Campos_S · #4 (**permalink**) 30-06-2004, 01:00:00

RE: Predeterminar Impresora

La cuestión es que tengo 2 Impresoras, una Laser que tiene como Tamaño de Papel una hoja tamaño Carta y una Miniprinter para Tickes de ancho de hoja 4311 Twips.

También desde el Sistema genero Reportes en DataReport.

OK.

Lo que quiero hacer es que si voy a mostrar el Reporte ponga como impresora Predeterminada la Impresora Laser en Papel Tamaño Carta, y si por el contrario imprimo Ticket de una Venta ponga la Miniprinter como Impresora Prederminada.

Siempre está configurado como Impresora Predeterminada la Miniprinter. A menos que quiera hacer lo del párrafo anterior.

Para ello utilizo el siguiente código, pero aún así me sigue marcando que el Ancho del Informe es mayor que el ancho de Papel.

CÓDIGO CUANDO LLAMA EL DATAREPORT.

Dim x, cp As Integer
cp = Printers.Count
If cp = 0 Then
MsgBox "Para poder mostrar el Reporte debe tener instalada una Impresora.", vbExclamation + vbOKOnly, "MENSAJE DEL SISTEMA."
Exit Sub
End If
For x = 0 To Printers.Count - 1
If Printers(x).PaperSize = 1 Then
Set Printer = Printers(x)
Exit For
End If
Next x

</TR>

acalanto · #5 (**permalink**) 30-06-2004, 01:00:00

RE: Predeterminar Impresora

Entonces seguramente tendrás que controlar el tipo de papel a utilizar en cada caso. El reporte o cualquier mandato de impresión que ejecutes, le resulta indiferente el tamaño de papel y la orientación configurada. Ten en cuenta que el tamaño de papel es una propiedad bastante abstracta y a una impresora de tiquets le puedes decir que el tamaño es un DIN A0 (Y lo pasa), el resultado que se obtenga es otra cosa.

Un saludo
-Acalanto-</TR>

J.M.Movilla · #6 (**permalink**) 30-06-2004, 01:00:00

RE: Predeterminar Impresora

Y ¿por qué no controlas su Devicename como te aconseja acalanto? Te lo digo porque de esa forma puedes incluso tener una "HP Laser IV Plus", por ejemplo, y otra "HP Laser IV Plus-2" configurada con el papel en apaisado...

Campos_S · #7 (**permalink**) 30-06-2004, 01:00:00

RE: Predeterminar Impresora

ok.

Gracias por su ayuda.

</TR>

Campos_S · #8 (**permalink**) 30-06-2004, 01:00:00

RE: Predeterminar Impresora

También intento hacer esto:

Dim Hoja
Hoja=Printer.PaperSize
if Hoja<>1 then
Printer.PaperSize=1 Aquí me marca el Error de que el Valor de la Propiedad no es válido.
EndIf

**No pude Adjuntar el mensaje de Error.

</TR>

acalanto · #9 (**permalink**) 17-09-2004, 01:00:00

RE: Predeterminar Impresora

Te adjunto la ayuda deMSDN refernte al tamaño de papel. El número 1 es Letter y a lo mejor la impresora sobre la que intentas no lo admite. Como te dije el tema del papel es algo borroso.

<BLOCKQUOTE><PRE><SPAN class=texto_mini>Codigo:</SPAN><HR>