Clarion - Printdvr en Window y

Printdvr en Window y

Publicado por carlosindalecio (20 intervenciones) el 19/08/2012 16:07:25

Buen dia a todos, me podrian indicar si el printdrv funciona en window 7

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Printdvr en Window y

Publicado por Marcelo Madelon (572 intervenciones) el 21/08/2012 12:08:11

Carlos

Posiblemente debas agrandar el bufer
y te paso un poco de código para que puedas ver como es el uso

Agrandar el strin del printdrv
Hola,
entra a la definicion del template y modifica:
----------------

LOC:Position1   LONG

LOC:Position2   LONG

LOC:Element     STRING(40)

szBuffer        LPSTR(150) ***********aca*************

lpBuffer        LPVOID

dwCount         DWORD

dwBytesWritten  DWORD

MOD:PrinterHandle   ULONG,STATIC

MOD:PrinterDC       ULONG,STATIC

-----------------------
El valor de szBuffer ( LPSTR(150)) es el que te hace perder
caracteres.
Saludos

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

PRINTDRV::Initialise(CLIP(NombreImpresora))

!Donde NombreImpresora contiene el nombre de la impresora que se

!encuentra instalada en windows.

 PRINTDRV::Initialise() --> Inicializar la impresión')

 PRINTDRV::WriteText()  --> Imprimir un string')

 PRINTDRV::Finalise()   --> Cerrar la impresión')

PRINTDRV::ModoDraft()   --> Pasa a la printer a modo Draft

PRINTDRV::ModoNLQ()    --> Pasa a la printer a modo NLQ

PRINTDRV::ResetPrinter

PRINTDRV::ResetPrinter() --> Resetea la impresora'

PRINTDRV::WriteText

PRINTDRV::Finalise

         PRINTDRV::Initialise(CLIP(IMP:NombreImpresora))

         PRINTDRV::ModoDraft()   ! --> Pasa la printer a modo Draft

        PRINTDRV::WriteText('<27,64>',0)    ! Inicializo Impresora

        PRINTDRV::WriteText('<27,67,48>',0) ! Longitud pagina a 48 Líneas

        PRINTDRV::WriteText(' ') ! Salta 1 Lineas

        PRINTDRV::WriteText(CHR(27)&CHR(18)&'                                                      FECHA EMISION: '|

                                 &(format (RE1:FechaEmision,@d06)))

        PRINTDRV::WriteText(CHR(27)&CHR(18)&'            '&format(AC1:ApellidoNombre,@s30))

        PRINTDRV::WriteText(CHR(27)&CHR(18)&'            '&format(AC1:Direccion,@s30))

        PRINTDRV::WriteText(CHR(27)&CHR(18)&'            '&Format(AC1:CodPostal,@P(####-##)P)&' '&Format(AEN:Localidad,@s30) &' '|

Espero te sirva.
Saludos desde Venado Tuerto - Argentina

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Printdvr en Window y

Publicado por Francisco J. Valencia (87 intervenciones) el 22/08/2012 02:32:04

Carlos:

Otra opción es indicar "Imprimir directamente en la impresora" en la pestaña de "Opciones Avanzadas" de las propiedades de tu impresora.
Saludos

Valora esta respuesta

Comentar

Printdvr en Window y

Publicado por carlos (20 intervenciones) el 17/01/2014 01:02:03

Muchas gracias a todos, recién hoy pude probar y funciono perfectamente lo de imprimir directamente en la impresora , voy a probar otro día lo de cambiar szBuffer LPSTR(150)
Una vez mas Muchas gracias

Valora esta respuesta

Comentar