Clipper/FiveWin - imprimir

como se puede hacer un programa de factura que llene una base de datos y la imprima con fivewin, pero el menu con clipper

¿Porque con FiveWin?. ¿Porque no utilizas Clipper + Vouch32.lib?

Un saludo

Si alvaro puede ser con esta libreria pero como trabaja y como la puedo >conseguir ya que que clipper imprmir solo con @ 10,5 Say " " yo lo que >quiero es imprimir ejemplo fila 10,5 colunma 11,3 me entiendes la idea desde >ya gracias >

José,

1) Puedes bajar Vouch32.lib desde:
http://www.vouchcac.com/Vouch32/Vouch32.htm

2) En la página hay una guia en inglés.

3) Como el programa es "homonimo" a PScript, puedes bajarte la guia de ese programa.

1) INSTALACION
- Tienes que instalar el fichero vouchsrv.exe bien en el directorio
activo o en un directorio del "path"
- Cuando enlaces tu programa (link) tienes que añadir la libreria
vouch32.lib.

2) Como los comandos son un poco engorrosos, yo tengo preparado el
siguiente fichero de cabecera (traduciendo los comandos al
español):

#define pIni V32PBEGINDOC
#define pSize V32PSETPAGESIZE
#define pFont V32PSETFONT
#define pSay V32PTEXTOUT
#define pLin V32PLINE
#define pNew V32PNewPage
#define pFin V32PEndDoc
#define pMarco V32PFrame
#define pFilCol V32PSetRowCol()

3) EN EL PROGRAMA

- Al principio del programa pones:

V32INIT (cTitulo, cDir, cDir, .f.)

donde cTitulo = Titulo que desea aparezca en las ventanas de Vouch
cDir = Directorio donde tiens vouchsrv.exe

- Para imprimir una pagina:

pIni() // inicio nueva documento
pSize (210,297) // tamaño de la pagina
pFilCol (80,80) // numero de filas y columnas máximos

pFont ('Arial', 0, 16) // fuente letra
pSay ( 1, 3, "COMPAÑIA PEPITO" ) // nombre empresa en grande
pFont ('Arial', 0, 12) // cambio de fuente
pSay ( 3, 5, "DIARIO DE ALMACEN" ) // titulo del listado
pSay ( 3,71, "Pág." )
pSay ( 3,75, nPag, "999" ) // variable num. pagina + picture
pLin ( 5, 3, 5, 79 ) // dibujo una linea
pFont ('Courier', 0, 10) // cambio fuente a Courier comprimido

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 )

pFont('Arial', 0, 8 )

pSay ( 8.5, nColCon , "Suma movimientos anteriores ..........")

pFin() // finaliza la pagina

Te comento algunos comandos, con algunos de los parámetros:

Al comenzar una rutina de impresion poner siempre pIni(). Aunque
tiene muchos parametros, como los que trae por defectos son los mas
usuales, normamente la pondras sin parametros, es decir pIni().-

pIni(nImpresora, cTitulo, nOrientacion, nCopias, lPrevio, cFuente,
nPuntos) // poner siempre al empezar una rutina de impresion

nImpresora: Numero de la impresora a usar. 0=impresora por defecto
99=Dialogo seleccion impresora
cTitulo: Titulo que quieres que salga en la ventana de previo
nOrientacion: 0=vertical (por defecto) 1=apaisada
nCopias: Numero de copias a imprimir (1 por defecto)
lPrevio: Si quieres que salga el previo .f. .t.
cFuente: Fuente (por defecto Courier New)
nPuntos: Tamaño fuente (por defecto 12)

pSay (nFila, nColumna, cValor, cPicture, nJustificar, cFont, nStilo,
nPunto)

nJustificar: 1=derecha 2=CENTRO
cFont : Courier, Arial, etc. (por defecto Courier New)
nStilo: 0= normal 1=negrita 2=italic 3=subrayado
nPunto: tamaño de la letra (por defecto 12)

pFont (cFont, nStilo, nPunto) // fuente

pLin (nFila1, nCol1, nFila2, nCol2, nGrosor, nColor, nStilo) // linea

pNew (nOrientacion) // nueva pagina

pMarco (nFila1, nCol1, nFila2, nCol2, nGrosor)

v32pPicture ((nFila1, nCol1, nFila2, nCol2, cNomFile) // imagen

Aunque parece complicado, es facil.

Un saludo

Alvaro