Convertendo relatórios de TMSPrinter para FWMSPrinter em poucos passos

No artigo de hoje, vamos demonstrar como converter um relatório de TMSPrinter para FWMSPrinter em poucos passos.

Abaixo segue o procedimento:

  1. Baixe o zTMSPrinter nesse link – clique aqui
  2. Na declaração de onde tiver TMSPrinter, substitua pela zTMSPrinter, exemplo:
//Antes
//oPrint:= TMSPrinter():New() 

//Depois
oPrint:= zTMSPrinter():New()
  1. Aplique um percentual de redução devido as margens das impressoras, algo como 3%
oPrint:= zTMSPrinter():New()
oPrint:SetReducao(3)

Observações:

Talvez seja necessário adaptar alguns métodos no visual do relatório.

Caso você queira, é possível utilizar os métodos herdados da FWMSPrinter na zTMSPrinter, através do atributo “oPrint”, por exemplo, caso você queira imprimir um código de barras usando métodos como Code128B, FWMSBar, QRCode, entre outros, ficaria da seguinte forma:

oPrn := zTMSPrinter():New()
oPrn:SetReducao(3)

//Abaixo um exemplo de como usar os métodos herdados da FWMSPrinter na zTMSPrinter
// oPrn     = Objeto criado, usando a zTMSPrinter
// oPrint   = Herança com a FWMSPrinter
// Code128B = Método da FWMSPrinter
oPrn:oPrint:Code128B(nLinha, nColuna, cTexto, nLargura)

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Dan (Daniel Atilio)
Cristão de ramificação protestante. Especialista em Engenharia de Software pela FIB, graduado em Banco de Dados pela FATEC Bauru e técnico em informática pelo CTI da Unesp. Entusiasta de soluções Open Source e blogueiro nas horas vagas. Autor e mantenedor do portal Terminal de Informação.

Deixe uma resposta

Terminal de Informação