Histórico da Página

FWMsPrinter(): New ( < cFilePrintert >, [ nDevice], [ lAdjustToLegacy], [ cPathInServer], [ lDisabeSetup ], [ lTReport], [ @oPrintSetup], [ cPrinter], [ lServer], [ lPDFAsPNG], [ lRaw], [ lViewPDF], [ nQtdCopy] ) --> oPrinter

• Retorna o objeto criado.

lAdjustToLegacy := .F. lDisableSetup  := .T.oPrinter := FWMSPrinter():New("Danfe.rel", IMP_PDF, lAdjustToLegacy, , lDisableSetup)// Ordem obrigátoria de configuração do relatóriooPrinter:SetResolution(72)oPrinter:SetPortrait()oPrinter:SetPaperSize(DMPAPER_A4) oPrinter:SetMargin(60,60,60,60) // nEsquerda, nSuperior, nDireita, nInferior oPrinter:cPathPDF := "c:\directory\" // Caso seja utilizada impressão em IMP_PDF

FWMsPrinter(): Box ( < nRow>, < nCol>, < nBottom>, < nRight>, [ cPixel] ) -->

oPrinter:Box( 130, 10, 600, 900, "-4")

FWMsPrinter(): Cancel ( ) -->

oPrinter:Cancel()

FWMsPrinter(): Canceled ( ) --> lRet

()
• Retorna se o relatório foi cancelado pelo método Cancel().

oPrinter:Canceled()

FWMsPrinter(): Cmtr2Pix ( [ nLinha], [ nCol] ) -->

nCol1 := 10nRow1 := 10oPrinter:Cmtr2Pix( nCol1, nRow1)//Resultado//nCol1  := 1107.08955224//nRow1 := 1107.26600985

FWMsPrinter(): Code128C ( < nRow>, < nCol>, < cCodeBar>, < nSizeBar> ) -->

#Include "PROTHEUS.CH"#Include "RPTDEF.CH" #INCLUDE "TBICONN.CH"User Function Code128C()Local oPrinter   PREPARE ENVIRONMENT EMPRESA "01" FILIAL "01"oPrinter      := FWMSPrinter():New('teste',6,.F.,,.T.,,,,,.F.)oPrinter:Setup()oPrinter:setDevice(IMP_PDF)oPrinter:cPathPDF :="C:\"oPrinter:Say(10,0,"Teste para Code128C")	oPrinter:Code128c(100, 10, '1234567', 50)       oPrinter:EndPage()oPrinter:Preview()                                                                   FreeObj(oPrinter)oPrinter := NilRESET ENVIRONMENTReturn

FWMsPrinter(): DataMatrix ( < nCol>, < nRow>, < cCodeBar>, < nSizeBar> ) -->

#Include "PROTHEUS.CH"#Include "RPTDEF.CH" #INCLUDE "TBICONN.CH"User Function DataMatrix()Local oPrinter   PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01"oPrinter      := FWMSPrinter():New('teste',6,.F.,,.T.,,,,,.F.)oPrinter:Setup()oPrinter:setDevice(IMP_PDF)oPrinter:cPathPDF :="C:\"oPrinter:Say(180,0,"Teste para DataMatrix")oPrinter:DataMatrix(0,300,"DataMatrix gerado com sucesso", 100)	       oPrinter:EndPage()oPrinter:Preview()                                                                   FreeObj(oPrinter)oPrinter := NilRESET ENVIRONMENTReturn

FWMsPrinter(): Ellipse ( < nLeft>, < nTop>, < nBottom>, < nRigth>, [ nColorIn], [ nColorOut], [ nLineType], [ cPixel] ) -->

Tabelas com as opções de linha disponíveis.

• 0 - Solid Line;
• 1 - Dash Line;
• 2 - Dash Dot Line;
• 3 - Dash Dot Dot Line;
• 4 - Dot Line;
• 5 - Custom Dash Line

oPrinter:Ellipse( 10, 10, 100, 100, CLR_BLACK, CLR_BLACK, 0, “-2”)

FWMsPrinter(): EndPage ( ) -->

oPrinter:EndPage()

FWMsPrinter(): FillRect ( < aCoords>, [ oBrush], [ cPixel] ) -->

oBrush1 := TBrush():New( , CLR_YELLOW)oPrinter:Fillrect( {100, 10, 200, 200 }, oBrush1, "-2")

FWMsPrinter(): GetFontWidths ( [ oFont], [ @aFontSize] ) --> aRet

()
• Vetor passado por referencia que recebera a lista de largura da fonte selecionada

FWMsPrinter(): GetOrientation ( ) --> nOrientation

()
• Retorna orientação do relatório. Para mais informações sobre os retornos que podem ser apresentados, consulte a área Observações.

Tabela com os valores de retorno.

• 0 - Ainda não definido pelo usuário;
• 1 - Portrait(retrato);
• 2 - Landscape(paisagem)

oPrinter:GetOrientation()

FWMsPrinter(): GetTextHeight ( < cTexto>, < oFont> ) --> nHeight

()
• Retorna a altura do texto.

oFont1 := TFont():New( 'Courier New', , -18, .T.)nHeight := oPrinter:GetTextheight( "Teste", oFont1)

FWMsPrinter(): GetTextWidth ( < cTexto>, < oFont> ) --> nWidth

()
• Retorna a largura do texto.

oFont1 := TFont():New( 'Courier New', , -18, .T.)nWidht := oPrinter:GetTextWidth( "Teste", oFont1)

FWMsPrinter(): GetViewPDF ( ) --> lViewPDF

(logico)
• .T. para exibir o relatório após a impressão.

oPrinter:GetViewPDF()

FWMsPrinter(): IsPrinterActive ( ) -->

oPrinter:IsPrinterActive()

FWMsPrinter(): Line ( < nTop>, < nLeft>, < nBottom>, < nRight>, [ nColor], [ cPixel] ) -->

oPrinter:Line( 130, 10, 130, 900, "-4")

FWMsPrinter(): nHorzRes ( ) --> nResult

()
• Retorna a resolução horizontal da impressora configurada.

oPrinter:nHorzRes()

FWMsPrinter(): nHorzSize ( ) --> nHorzSize

()
• Largura da página

oPrinter:nHorzSize()

FWMsPrinter(): nLogPixelX ( ) --> nResult

()
• Retorna a resolução vertical em pixels da impressora configurada.

oPrinter:nLogPixelX()

FWMsPrinter(): nLogPixelY ( ) --> nResult

()
• Retorna a resolução horizontal em pixels da impressora configurada.

oPrinter:nLogPixelY()

FWMsPrinter(): nVertRes ( ) --> nResult

()
• Retorna a resolução vertical da impressora configurada.

oPrinter:nVertRes()

FWMsPrinter(): nVertSize ( ) --> nVertSize

()
• Altura da página.

oPrinter:nVertSize()

FWMsPrinter(): PaperSize ( ) --> nPaperSize

()
• Tamanho do papel.

oPrinter:PaperSize()

FWMsPrinter(): Preview ( ) -->

oPrinter:Preview()

FWMsPrinter(): Print ( ) -->

oPrinter:Print()

FWMsPrinter(): PrinterName ( ) --> cImpressora

(caracter)
• Nome da impressora.

A imagem é ajustada para preencher todo o espaço definido entre a altura e largura do objeto.

oPrinter:PrinterName()

FWMsPrinter(): QRCode ( < nRow>, < nCol>, < cCodeBar>, < nSizeBar> ) -->

#Include "PROTHEUS.CH"#Include "RPTDEF.CH" #INCLUDE "TBICONN.CH"User Function QRCode()Local oPrinter   PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01"oPrinter      := FWMSPrinter():New('teste',6,.F.,,.T.,,,,,.F.)oPrinter:Setup()oPrinter:setDevice(IMP_PDF)oPrinter:cPathPDF :="C:\"oPrinter:Say(40,0,"Teste para QRCode")oPrinter:QRCode(0,150,"QR Code gerado com sucesso", 100)       oPrinter:EndPage()oPrinter:Preview()                                                                   FreeObj(oPrinter)oPrinter := NilRESET ENVIRONMENTReturn

FWMsPrinter(): Say ( < nRow>, < nCol>, < cText>, [ oFont], [ nWidth], [ nClrText], [ nAngle] ) -->

A imagem é ajustada para preencher todo o espaço definido entre a altura e largura do objeto.

oFont1 := TFont():New( "Courier New", , -18, .T.)oPrinter:Say( 10, 10, "texto para visualização", oFont1, 1400, CLR_HRED)

FWMsPrinter(): SayAlign ( < nRow>, < nCol>, < cText>, [ oFont], [ nWidth], [ nHeigth], [ nClrText], [ nAlignHorz], [ nAlignVert ] ) -->

Tabela de códigos de alinhamento horizontal.

• 0 - Alinhamento à esquerda;
• 1 - Alinhamento à direita;
• 2 - Alinhamento centralizado

• 3 - Alinhamento justificado. (Opção disponível somente a partir da versão 1.6.2 da TOTVS Printer.)

Tabela de códigos de alinhamento vertical.

• 0 - Alinhamento centralizado;
• 1 - Alinhamento superior;
• 2 - Alinhamento inferior

oFont1 := TFont():New('Courier new',,-18,.T.)oPrinter:SayAlign( 10,10,"Texto para visualização",oFont1,1400, 200, CLR_HRED, 0, 2 )

FWMsPrinter(): SayBitmap ( < nRow>, < nCol>, < cBitmap>, [ nWidth], [ nHeight] ) -->

A imagem é ajustada para preencher todo o espaço definido entre a altura e largura do objeto.

A impressão de imagens maiores que 1MB e a possibilidade de utilizar arquivos locais ou compartilhados via rede estarão disponiveis à partir da totvsPrinter versão 1.5.5.

Se o relatório for executado via SERVIDOR, essa máquina deverá ter acesso aos arquivos, caso as imagens estejam no drive local da estação onde serão executadas.

oPrinter:SayBitmap( 100, 200, "C:\Dir\totvs.bmp", 800, 800)

oPrinter:SayBitMap( 100, 200, "\\maquina\public\totvs.bmp", 2000, 2000) // Acesso a arquivos via rede.

FWMsPrinter(): SetDevice ( < nDevice> ) -->

oPrint:SetDevice(IMP_SPOOL)

FWMsPrinter(): SetFont ( < oFont> ) -->

oFont1 := TFont():New('Courier new',,-18,.T.)oPrinter:SetFont(oFont1)

FWMsPrinter(): SetLandscape ( ) -->

oPrinter:SetLandscape()

FWMsPrinter(): SetMargin ( < nLeft>, < nTop>, < nRight>, < nBottom> ) -->

oPrinter:SetMargin(10,10,10,10)

FWMsPrinter(): SetPaperSize ( < nPaperSize>, [ nHeight], [ nWidth] ) -->

• 0 - Tamanho customizavel pelo usuario, informado em nHeight/nWidth. Aplicavel apenas em impressoes do tipo PDF.
• 1 - Letter   216mm x 279mm  637 x 823
• 3 - Tabloid  279mm x 432mm  823 x 1275
• 7 - Executive 184mm x 267mm  543 x 788
• 8 - A3     297mm x 420mm  876 x 1240
• 9 - A4     210mm x 297mm  620 x 876

oPrinter:setPaperSize(9)

FWMsPrinter(): SetPortrait ( ) -->

oPrinter:SetPortrait()

FWMsPrinter(): SetResolution ( [ nResolution] ) -->

oPrinter:Resolution()

FWMsPrinter(): Setup ( ) -->

oPrinter:Setup()

FWMsPrinter(): SetViewPDF ( < lViewPDF> ) -->

// para não apresentar o PDF após a geração do relatório.oPrinter:SetViewPDF(.F.)

FWMsPrinter(): StartPage ( ) -->

oPrinter:StartPage()