"Problema" de impresion

Iniciado por mos-k, 26 Octubre 2009, 19:31 PM

0 Miembros y 2 Visitantes están viendo este tema.

mos-k

que tal....!  tengo un pequeño "problema" con la impresion en un programa que realize para el control de un bar, tengo la opcion de imprimir el ticket de cada mesa, para eso utilizo una impresora de tickets okidata con corte de papel, y lo hace muy bien, pero tengo otra opcion para generar un reporte del inventario y ahi empieza el "problema" al querer generarlo me Avisa que el Ancho del papel es menor al del reporte y no presenta nada, la solucion temporal que uso es cambiar la impresora predeterminada(impresora de tickets) por otra y despues generar el reporte y lo hace sin problemas, obiamente despues de eso hay que volver a cambiar la impresora predeterminada.

Conocen alguna manera de poder seleccionar la impresora antes de imprimir/generar el repote??

lo agradeceria mucho....

MCKSys Argentina

Puedes usar el objeto Printer.

Fijate su uso en la MSDN.

Saludos!


MCKSys Argentina

"Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."


mos-k

Cita de: MCKSys Argentina en 27 Octubre 2009, 01:31 AM
Puedes usar el objeto Printer.

Fijate su uso en la MSDN.

Saludos!



.........???????  el problema es para tener la opcion seleccionar una impresora diferente a la de tickets al momento de generar/imprimir el reporte del inventario.

gracias de todos modos....

ssccaann43 ©

Facil...

Fijate

Declara una Variable con el Nombre de Impresora_Anterior
Y en el Load del Form, Asignale el nombre de la impresora que tiene predeterminada. Seguido de esto, con este Codigo que adjunto abajo, asignas el nombre de la impresora y la establece como Predeterminada, permitiendote imprimir. Luego de la impresión, llamas la funcion de Establecer y le colocas el nombre de la Impresora Anterior.  ;D

Código (vb) [Seleccionar]

Public Function EstablecerImpresora(Impresora As String)   
 
Dim Prt As Printer   
    ' Establece la impresora que se utilizará para imprimir. XD   
    For Each Prt In Printers   
        If Prt.DeviceName = Nombre_Impresora Then 
            Set Printer = Prt   
        End If 
    Next 
End Function

;-)
- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"

mos-k

 :o   ;-)   ::)

Muchisimas gracias por tu ayuda....................

Resuelto.

ssccaann43 ©

De nada, cualquier cosa postea...
- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"