Clarion - Printdvr en Window y

   
Vista:

Printdvr en Window y

Publicado por carlosindalecio cierpy@hotmail.com (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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Clarion
- Código fuente de Clarion
- Cursos de Clarion
información
Códigos de Clarion
- Llamar al form para insertar desde el menu

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:
----------------
1
2
3
4
5
6
7
8
9
10
11
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


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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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 claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Printdvr en Window y

Publicado por Francisco J. Valencia (85 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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Printdvr en Window y

Publicado por carlos cierpy@hotmail.com (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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar