FiveTech Software tech support forums

Using PRINT oPrn FILE <pdffile>, there are 3 ways to generate PDFs. 1. Using Microsoft Word, if installed on the PC. This is the default. Printer class generates emf files and embeds them into Word document and saves as PDF. pros: Good quality and medium size pdfs cons: (1) Does not support ro...

But de quality of the typography in the PDF is not good.

Yes. Also PDF file size is large.

I guess the best solution must be to use HaruPDF.

Yes. Simple and smaller pdf file sizes.

Please try this way #include "fivewin.ch"function Main()   local oPrn, oFont   local cPdf  := "lerele.pdf" // your pdf file name   TPrinter():lUseFWPDF := .t.      PRINT oPrn FILE cPdf PREVIEW  // PREVIEW is optional. You can ommit PREVIEW   DEFINE FONT oFont NAM...

Please try these samples in the samples folder:
print01.prg
print02.prg
pdfharu1.prg
pdfharu2.prg

You can see how to generate pdfs using Word, FWH own pdf, HaruPDF, Image2pdf
Please see how simplest and one line code to print complex outputs.

And advise us what more you want us to provide

Mr. Karinha Mira se ayuda: Your example is longer but the same as my original sample as far as vertical oriented text is concerned, You are missing the real point. If you execute the program on a computer where MSWord is installed, you can not see the vertical text in the PDF. You see the vertical ...

Mr. Karinha Mira se ayuda: Your example is longer but the same as my original sample as far as vertical oriented text is concerned, You are missing the real point. If you execute the program on a computer where MSWord is installed, you can not see the vertical text in the PDF. You see the vertical t...

Mr. Nages, I use the class TImprime and TUtilprn (provided years ago by Rafa Carmona ). At the moment this is how it works for me (more or less): ndummyaltura := ( ::oPrn:CmVertPhySize() / 2 ) + ( ::oPrn:CmtrGetTextWidth( AllTrim( ::oTDbfDatAmp:REGMER ), ::oFnt_Arial6V ) / 2 ) UTILPRN ::oUtil ndumm...

Mira se ayuda: // C:\FWH\SAMPLES\IMPTXT3.PRG#Include "FiveWin.ch"FUNCTION Main()   LOCAL WNOMBREARQPDF   IF FILE( "C:\TEMP\ARCHIVO.PDF" )      ERASE( "C:\TEMP\ARCHIVO.PDF" )   ENDIF   MsgRun&...

Please try this way #include "fivewin.ch"function Main()   local oPrn, oFont   local cPdf  := "lerele.pdf" // your pdf file name   TPrinter():lUseFWPDF := .t.      PRINT oPrn FILE cPdf PREVIEW  // PREVIEW...

Mr. Nages, I use the class TImprime and TUtilprn (provided years ago by Rafa Carmona ). At the moment this is how it works for me (more or less): ndummyaltura := ( ::oPrn:CmVertPhySize() / 2 ) + ( ::oPrn:CmtrGetTextWidth( AllTrim( ::oTDbfDatAmp:REGMER ), ::oFnt_Arial6V ) / 2 ) UTILPRN ::oUtil ndummy...

[quote="nageswaragunupudi"]Please try this sample program #include "fivewin.ch"function Main()   local oPrn, oFont   PRINT oPrn PREVIEW   DEFINE FONT oFont NAME "Arial" SIZE 0,-60 NESCAPEMENT 900 OF oPrn   PAGE      oPrn:Box( 1, 1, 9, 4, 1, nil, nil, "I...

Please try this sample program #include "fivewin.ch"function Main()   local oPrn, oFont   PRINT oPrn PREVIEW   DEFINE FONT oFont NAME "Arial" SIZE 0,-60 NESCAPEMENT 900 OF oPrn   PAGE      oPrn:Box( 1, 1, 9, 4, 1, nil, nil, "INCHES" )      @ 1,1 PRINT TO...

Hola a todos, Tengo que centrar un texto verticalmente. Está escrito en el eje de las 'y', en vertical, el FONT que utilizo está definido así: DEFINE FONT oFnt_Arial6V NAME "Arial" SIZE 0,-6 OF ::oPrn NESCAPEMENT 900 PRINTER ...

Con WORKSHOP.exe, no me gusta.

https://imgur.com/9TocYD0



Regards, saludos.

Code: Select all  Expand view

   DEFINE FONT oFont NAME "ARIAL" SIZE 5, 5 NESCAPEMENT 900
 

Con GET, no funciona. si en RECURSOS, creo sea posible. Con @...*código", sólo si es un GET encima del OTRO, hasta formar la palabra vertical.

Regards, saludos.