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.
**-- 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


0