Clipper/FiveWin - VOUCH32

 
Vista:

VOUCH32

Publicado por Antonio (55 intervenciones) el 03/10/2007 12:43:59
A continuación reflejo una pequeña rutina que tengo creada dentro de un programa hecho con Clipper 5.3b y linkado con Blinker 7.0, para probar la función V32PPicture() de la libería Vouch32, pero no imprime nada, sale la hoja en blanco.

**-- ImprBMP.PRG
FUNC ImprBMP(nLin,nCol)
PRIVATE BitmapF:= "C:\PRTWRK\PRUEBA.BMP"
PRIVATE Puerto:= "LPT1"
Set Prin to &Puerto
Set( _SET_PRINTER, .t.)
V32PPicture(02,02,06,30,BitmapF)
Ejec
RETU .T.
**--

-En el fichero, Mak.bat tengo puesto entre otros:
@ECHO OFF
SET PATH=%PATH%;D:\CLIP53\Bin;D:\UTILES;
SET PIPEHANDLE=0;
SET INCLUDE=D:\CLIP53\Include;D:\VOUCH32\Include;
SET LIB=D:\CLIP53\Lib;D:\VOUCH32\Lib;
SET OBJ=D:\CLIP53\Obj;D:\VOUCH32\Obj;
.....
.....
....

-En el fichero .lnk, tengo puesto entre otros :
....
....
#VOUCH32\LIB
LIB D:\VOUCH32\LIB\OsLib.lib
LIB D:\VOUCH32\LIB\Vouch32.lib

-Tengo puesto ademas, no se si hace falta por lo que ruego me lo aclaren igualmente, al principio del .PRG:
# Include "Vouch32.CH"

Ruego ayuda.
Saludos cordiales.
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

RE:VOUCH32

Publicado por Antonio (55 intervenciones) el 05/10/2007 12:36:31
Personalmente he resuelto el problema.
Me faltaban las siguientes instrucciones:

-MODULO PRINCIPAL DEL PROGRAMA:
//Para poder trabajar con la liber¡a Vouch32
V32Init('Vouch32', 'D:\Vouch32\Server', 'D:\Vouch32\Server', .F.)

-EN CADA FUNCIÓN QUE UTILICEMOS PARA IMPRIMIR CON VOUCH32:
Inicializar con:
V32BeginDoc()
...
Texto, imágenes, etc. a imprimir
...
Terminar con:
V32PEndDoc()

Independientemente y para consumir menos recursos, poner en el módulo principal:
//Lib OsLib para consumir menos CPU
OL_AUTOYIELD(.T.)

Saludos cordiales.
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