Clipper/FiveWin - Imprimir con Vouch32 (Error)

 
Vista:

Imprimir con Vouch32 (Error)

Publicado por Cesar H. (16 intervenciones) el 18/11/2005 11:45:03
Buenos dias a todos, les hago la siguiente consulta por si alguien me puede ayudar, yo hice una pregunta acerca de imprimir con impresoras chorro de tinta o laser bajo clipper y me aconsejaron que use vouch32, perfecto lo baje al equipo lo instale y me da una serie de errores detallo a continuacion lo que hice.

cdir:="c:\vetelfor\"
V32INIT ("impresion",cdir,cdir,.F.)

#include "vouch32.ch"

#define pini V32PBEGINDOC
#define psize V32PSETPAGESIZE
#define pfont V32PSETFONT
#define pssay V32PTEXTOUT
#define plin V32PLINE
#define pnew V32PNewPage
#define pfFin V32PEndDoc
#define pmarco V32PFrame
#define pfilcol V32PSetRowCol()

pini()
psize(210,297)
pfilcol(80,80)
pfont('Arial',0,16)
psay(1,3,"COMPAÑIA PEPITO")
pfont('arial',0,12)
psay(3,5,"DIARIO DE ALMACEN")
PSAY(3,71,"Pág.")
plin(5,3,5,79)
pfont('courier',0,10)
psay(5.5,15,"CUENTA")
psay(5.5,38,"CONCEPTO")
psay(5.5,61,"DEBE")
psay(5.5,72,"HABER")
plin(7.5,3,7.5,79)
PFIN()

tengo instalado clipper 5.3
luego de linkearlo me da el siguiente error

Compiling VETELFOR.PRG
Code size 251, Symbols 176, Constants 213

C:\Imprimir>blinker Fi vetelfor Lib vouch32
__ __
(«») («») BLINKER Dynamic Overlay Linker 1.00 for CA-Clipper 5.3

___ Blink and you'll miss it !!

Copyright (c) Assembler Software Manufacturers, Inc. 1990 - 1995
All Rights Reserved. Licensed solely for use with CA-Clipper 5.3

BLINKER : 1115 : VETELFOR.OBJ(VETELFOR) : 'PSAY' : unresolved external
BLINKER : 1115 : VETELFOR.OBJ(VETELFOR) : 'PFIN' : unresolved external
BLINKER : 1115 : VOUCH32.LIB(VOUCH32) : 'OL_YIELD' : unresolved external
BLINKER : 1115 : BLIKRNMGR(CLSWPRUN) : '$$$SWPPRM' : unresolved external
BLINKER : 1115 : BLIKRNMGR(CLSWPRUN) : '$$SWPRUN' : unresolved external

BLINKER : 0 Warning error(s), 5 Fatal error(s)

VETELFOR.EXE (not created) (0.3 seconds)

alguien me podra ayudar diciendome de que se trata estos errores.

Desde ya mil gracias por el tiempo dedicado.

Cesar H., Argentina
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:Imprimir con Vouch32 (Error)

Publicado por Alvaro (11 intervenciones) el 18/11/2005 18:57:57
Yo creía que ya lo tenias superado...

Veamos:

1) Tienes que poner las dos lineas siguientes despues de los defines:

cdir:="c:\vetelfor\"
V32INIT ("impresion",cdir,cdir,.F.)

2) En dos defines te has equivocado al escribirlo:

DEFINE pSsay es pSay
DEFINE pFfin es pFin

3) Te falta enlazar con la libreria OSLIB

4) Busca mis contestaciones para compilar y enlazar Vouch y encontraras si te falta algo.

Un saludo y estudia

Alvaro
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:Imprimir con Vouch32 (Error)

Publicado por Cesar (16 intervenciones) el 21/11/2005 11:17:17
Alvaro lo hice funcionar perfecto, el problema es que esta toda la ayuda en ingles, no sabes si hay alguna posibilidad de que imprima directamente y no me realize la vista previa antes.
Un abrazo, Cesar
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:Imprimir con Vouch32 (Error)

Publicado por Alvaro (79 intervenciones) el 22/11/2005 22:26:10
César, en primer lugar me alegro que te funciones. LLevas razón con el tema del inglés y quizas sea la causa que esta librería IMPRESIONANTE no sea demasiado conocido entre los hispano-hablantes.

Para hacer lo que quieres tienes que cambiar el primer comando pINI().-
Normalmente se pone sin parámetros y coge los que trae Vouch por defecto.
PAra que no salga el previo pones:
pIni (,,,, .t. ) // cuatro comas

Los parametros de pIni son: (te pongo en mayusculas por defecto)

PINI (nImpresora, cTitulo, nOrienta, nCopias, lPrevio, cFont) // hay mas

nImpresora 0=IMPRESORA DETERMINADA 99=elegir impresora
cTitulo (VOUCH) es el titulo de la ventana
nOrienta (0=VERTICAL 1=Horizontal
nCopia 1 (numero de copias)
lPrevio (.F.) si queremos que no salga el previo poner .T.
cFont COURIER (fuente que utilizara)

Espero que te sirva

Alvaro
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