Boa tarde.
Alguém está com problema na utilização do método SayAlign da classe FWMsPrinter ? Preciso alinhar um texto a direita. Não estou conseguindo imprimir nada com o SayAlign.
#INCLUDE "TOTVS.CH"
#INCLUDE "FWPRINTSETUP.CH"
#INCLUDE "RPTDEF.CH"
User Function TstSayAlign()
Local cRelName := "TSTMSPRINT"
Local lAdjust := .F.
Local nPrintType := 6
Local oFont10 := TFONT():New("ARIAL",10,10,,.F.,,,,,.F.,.F.) ///Fonte 10 Normal
Local oPrinter := Nil
oPrinter := FWMSPrinter():New(cRelName, nPrintType, lAdjust, /*cPathDest*/, .T., /*lTReport*/ ,/* oPrintSetup */,/*cPrinter*/, .t. )
oPrinter:SetPortrait()
oPrinter:SetPaperSize(DMPAPER_A4)
oPrinter:setCopies(1)
nCenterPg := Round(oPrinter:nHorzSize() / 2 ,0)
oPrinter:StartPage() // Inicia uma nova pagina
nLin := 25
oPrinter:Say( nlin,nCenterPg,"Texto para visualização",oFont10 )
nLin += 25
oPrinter:SayAlign(nlin, nCenterPg, "Texto para visualização SayAlign", oFont10, , ,255 , 0, 1)
nLin += 25
oPrinter:SayAlign(nlin, nCenterPg, "Texto para visualização SayAlign", oFont10, , ,255 , 1, 1)
nLin += 25
oPrinter:SayAlign(nlin, nCenterPg, "Texto para visualização SayAlign", oFont10, , ,255 , 2, 1)
nLin += 25
oPrinter:EndPage()
oPrinter:Preview()
Return