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