Se alguma pergunta ou resposta lhe foi útil, não deixe de dar seu voto positivo!

#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

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 TOTVS DevForum!

• up 0 down

  Boa noite Rubens,

  O método SayAlign recebe como quinto parâmetro (nWidth) o tamanho horizontal do texto, com base nesse valor que o texto é impresso:

  https://tdn.totvs.com/display/public/mp/FWMsPrinter

  ---

  Para calcular o tamanho do texto, você pode utilizar o método GetTextWidth da própria FWMSPrinter.

  ---

  Abaixo o seu exemplo com as alterações necessárias para que o método SayAlign funcione corretamente:

  #INCLUDE "totvs.ch"
  #INCLUDE "fwprintsetup.ch"
  #INCLUDE "rptdef.ch"
  
  //--------------------------------------------------------------
  /*/{Protheus.doc} TstSayAlign
  Teste de utilização do método SayAlign d classe FWMSPrinter
  
  @sample U_TstSayAlign
  @since 13/09/2019
  @version 1.0
  /*/
  //--------------------------------------------------------------
  user function TstSayAlign()
  local cRelName as char
  local lAdjust as logical
  local nPrintType as numeric
  local oFont10 as object
  local oPrinter as object
  local cText as char
  local nSize as numeric
  
  cRelName   := "TSTMSPRINT"
  lAdjust    := .F.
  nPrintType := 6
  oFont10    := TFont():New("ARIAL",10,10,,.F.,,,,,.F.,.F.) ///Fonte 10 Normal
  
  oPrinter := FWMSPrinter():New(cRelName, nPrintType, lAdjust, "/SPOOL/", .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
  
  cText := "Texto para visualização SayAlign"
  
  //Necessário calcular o tamanho da string que será impressa
  nSize := oPrinter:GetTextWidth(cText, oFont10)
  
  oPrinter:SayAlign(nLin, nCenterPg, cText, oFont10, nSize, ,CLR_BLACK , 0, 1)
  nLin += 25
  oPrinter:SayAlign(nLin, nCenterPg, cText, oFont10, nSize, ,CLR_BLACK , 0, 1) //oPrinter:SayAlign(nLin, nCenterPg, cText, oFont10, nSize, ,CLR_BLACK , 1, 1)
  nLin += 25
  oPrinter:SayAlign(nLin, nCenterPg, cText, oFont10, nSize, ,CLR_BLACK , 2, 1)
  
  oPrinter:EndPage()
  oPrinter:Preview()
  
  return nil

  • editar
  • • x

    grosseiro ou ofensivo pouco construtivo obsoleto outro...

    Motivo

  • criado 13 de Sep de 2019

    Daniel Mendes

    15854 pontos

  • 0

    Obrigado. Funcionou passando o parâmetro nWidth.

    — Rubens H Takahashi   16 de Sep de 2019
  • x
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo

  Adicionar comentário

  Caracteres restantes: 600

  Cancelar Quero acompanhar este tópico via email.

  Comentário

  Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.

  Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações