Clipper/FiveWin - Imprimir Memo

   
Vista:

Imprimir Memo

Publicado por Leonel Martinez (3 intervenciones) el 12/12/2008 23:21:42
Hola mis amigos:

Estoy super atrasado en entregar un sistema que trabaje en el ano 2001 y que ahora me lo estan solicitando nuevamente, pero tengo un comprobante de ck que lo trabaje al parecer en campo memo. lo digo por que mando la impresion a un archivo extension .TXT y luego lo mando a un .BAT y lo imprimo con el comando de windows WINEXEC. Asumo que utilice el programa REPT23.PRG de FiveWin F1.95 necesito me ayuden o me regalen el rept23.prg se los agradecere muchisimo.

Abrazos

Leonel
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 Clipper/FiveWin
- Código fuente de Clipper/FiveWin
- Cursos de Clipper/FiveWin
- Temas de Clipper/FiveWin
información
Códigos de Clipper/FiveWin
- Vaciar bases de datos
- Visor de archivos DBF
- Melodias

RE:Imprimir Memo

Publicado por marcelo (161 intervenciones) el 22/12/2008 21:54:21
Leonel, te copio el rept23.prg
Marcelo

#include "FiveWin.ch"
#include "report.ch"

STATIC oReport

Function Rep23(cTextfile) // To make this a reusable module, we pass
// the name of the text file to this function,
// so it can be re-used for many different files
// with the same margin and font settings.

LOCAL nRecno, oFont

DEFINE FONT oFont NAME "COURIER" SIZE 0,-12
// Font sizes for PRINTING are given in "points" not pixels.
// (Pixels are used for font width and height for SCREENS only.)
// By using a "0" for width and a "-" in front of the "height" #
// we tell FiveWin that we're using points instead of pixels.

// Thus -12 means "12 point," which is used for "10 pitch"
// non-proportionally spaced Courier type that prints at
// 6 lines/inch.

// -10 means a 10 point font printing at 7 lines/inch.

// Use -9 for a "12 pitch" equal-spaced Courier font printing
// at 8 lines per inch.

// Note that in creating the report object, we are leaving out
// any mention of title or header specs. because those are
// already included in our .TXT file.
REPORT oReport ;
FONT oFont ;
CAPTION "Text File Printout" ;
TO PRINTER

COLUMN DATA " " SIZE 76 // * Trick "Data" - we're fooling Mother
// Nature here. The memo will go into the " ". *

END REPORT

// All title lines, page numbers and headings already exist in
// our text file, so the next two code statements make sure that
// FiveWin won't add its own title lines.
oReport:nTitleUpLine := RPT_NOLINE
oReport:nTitleDnLine := RPT_NOLINE
oReport:Margin(.15,RPT_LEFT,RPT_INCHES)
oReport:Margin(.25,RPT_TOP,RPT_INCHES)
oReport:Margin(.25,RPT_BOTTOM,RPT_INCHES)
// I know the top/bottom margins shown here should mathematically cause
// more than the desired 60 lines per page to print. However, in actual
// practice with my Panasonic KXP 4450 laser printer emulating the
// HP LaserJet Plus, this is what I had to use to get 60 lines. Why?
// Inscrutible printer driver! Maybe your printer driver functions in
// a more mathematically logical fashion. If so, adjust accordingly.
// The left margin is set so small here because a margin is already
// built into the text file itself (in this particular case).

ACTIVATE REPORT oReport ;
ON INIT SayMemo(cTextfile)
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 Memo

Publicado por Leonel (3 intervenciones) el 23/12/2008 17:22:29
Marcelo: Muchisimas Gracias, Que pases una Feliz Navidad y un Excelente año nuevo con todos los que te aprecien y quieren.

Atentamente


Leonel
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