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
compartilhar
  • Boa tarde Rubens, consegue colocar um exemplo de como está implementando, por favor.

    Daniel Mendes   1 month ago
  • Coloquei uma parte do código que estava utilizando para testes.

    Rubens H Takahashi   1 month ago
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do DevForum TOTVS!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags fwmsprinter ou faça a sua própria pergunta.