FiveTech Support Forums

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 contempla centrar horizontalmente respecto del eje 'x', pero en vertical respecto del eje 'y' no lo veo.

¿Cómo lo harían Ustedes?

A ver que se les ocurre.

Muchas gracias

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 ndummyaltura, 0.5 ;

    SAY AllTrim(::oTDbfDatAmp:REGMER) FONT ::oFnt_Arial6V COLOR CLR_BLACK

I want to center the text at half height of the page.

Note: New Method for de Printer.PRG

METHOD CmtrTextToVCenter( cText, oFont ) INLINE ;

      ( ::CmVertPhySize() / 2 ) + ::CmtrGetTextWidth( cText, oFont ) / 2

Thank you again,

FiveWiDi wrote: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 ndummyaltura, 0.5 ;
SAY AllTrim(::oTDbfDatAmp:REGMER) FONT ::oFnt_Arial6V COLOR CLR_BLACK

I want to center the text at half height of the page.


Note: New Method for de Printer.PRG

METHOD CmtrTextToVCenter( cText, oFont ) INLINE ;
( ::CmVertPhySize() / 2 ) + ::CmtrGetTextWidth( cText, oFont ) / 2


Thank you again,

@ 0, 0 PRINT TO oPrn TEXT "Single/MultiLine Text" ALIGN "" FONT oFont

Mira se ayuda:

nageswaragunupudi wrote: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 text in PDF if (1) MS Word is not installed or (2) we set TPrinter():lUseFWPDF := .t.

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

nageswaragunupudi wrote:Please try this way

Code (fw): Select all Collapse

#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 NAME "Arial" SIZE 0,-60 NESCAPEMENT 900 OF oPrn

   PAGE
      oPrn:Box( 1, 1, 9, 4, 1, nil, nil, "INCHES" )
      @ 1,1 PRINT TO oPrn TEXT "VTEXT" SIZE 3,8 INCHES ALIGN "" FONT oFont
   ENDPAGE
   ENDPRINT
   RELEASE FONT oFont

   TPrinter():lUseFWPDF := .f.

return nil

and let us know

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

I guess the best solution must be to use HaruPDF.

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 rotated text and (2) pdf document is an image and not editable.

1. Using FWH's own PDF generator.(written many years ago)

If MSWord is not installed, this is the default.

We can also force this by setting TPrinter():lUseFWPDF := .t.

cons: (1) Lesser quality (2) Large size and (3) pdf is not editable.

1. Using HaruPDF, by setting TPrinter():lUseHaruPDF := .t.

pros: (1) Smaller size. (2) Good Quality (3) pdfs are editable.

cons: (1) Does not support Unicode fonts. (Concern only for East/Middle Asian languages)

(2) Does not support Hallow Text with image brush.