Versão atual:

Metodo SayAlign - FWMsPrinter

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

Versões (2):

Ver a versão formatada

Metodo SayAlign - FWMsPrinter

Comentário

new question