Visual Basic para Aplicaciones - Como imprimir

Life is soft - evento anual de software empresarial
   
Vista:

Como imprimir

Publicado por Manuel Lugo Gamez (3 intervenciones) el 09/11/2007 01:55:13
Mando imprimir utilizando el objeto PRINTER

Lo que quiero es que al imprimir un recibo que ocupa un tercio de la hoja
al ejercurse el printer.newpage, no avance hasta el final de la hoja, si no que
se detenga para cortar el recibo y poder imprimir otro.

Cuando imprimo varios recibos no tengo ningun problema.
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
información
Otras secciones de LWP con contenido de Visual Basic para Aplicaciones
- Código fuente de Visual Basic para Aplicaciones
- Cursos de Visual Basic para Aplicaciones
- Temas de Visual Basic para Aplicaciones
información
Códigos de Visual Basic para Aplicaciones
- Buscador para Excel
- Metodos Numéricos
- Quinigrama

RE:Como imprimir

Publicado por VICTOR MARROQUIN RDZ (49 intervenciones) el 09/11/2007 20:49:19
PRUEBA LO SIGUIENTE

CONFIGURA UNA IMPRESORA CON EL TAMAÑO DE PAPEL DEL RECIBO Y ANTES DE MANDAR A IMRIMIR PON : PRINTER.DeviceName="NOMBREDEIMPRESORA"
PARA QUE TOME POR DEFAUL EL TAMAÑO QUE NECESITAS,

SALUD2, SUERTE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como imprimir

Publicado por Manuel Lugo Gamez (3 intervenciones) el 13/11/2007 23:10:09
Victor ya hice la prueba pero no acepta la propiedad DEVICENAME
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como imprimir

Publicado por VICTOR MARROQUIN RDZ (49 intervenciones) el 14/11/2007 15:04:28
HOLA, QUE TAL:

PON EL CODIGO, PARA REVISARLO Y PODER AYUDARTE .

SALUD2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como imprimir

Publicado por Manuel Lugo Gamez (3 intervenciones) el 15/11/2007 00:01:53
Despues de batallar un poco encontre la solucion de como imprir un
recibo y que no salte al final de la hoja, de la siguiente manera:

Dim Impresora as Printer

for Each Impresora In Printers
set Printer = impresora 'Establece la impresora
if Printer.DeviceName = "Recibos" then 'Recibos es el nombre de la impresora
exit for
endif
next

Gracias Victor por tu sugerancia
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar