MR Boleto gerar EMF

[Shark]

Boa tarde colegas,

Estou (após anos de atraso) implementando o uso de BOLETO em meu sistema.

Dentre muitas soluções as quais pesquisei, decidi pelo AcBR.

Entretanto, como não consegui compilar o AcBr com Lazarus e preciso, por hora, apenas imprimir os boletos, decidi, em caráter emergencial, utilizar o MR_BOLETO.

O MR_Boleto gera os documentos em formato PDF. Isso é muito bom. Contudo, preciso agora de algumas dicas dos colegas nas dúvidas abaixo:

1 - Como imprimir PDF via código harbour?
2 - É possível converter o PDF em EMF para mostrar no preview do meu sistema?
3 - Você indicaria uma outra solução FREE para gerenciar boletos?

No Aguardo... Agradeço antecipadamente.

[janio]

Veja

viewtopic.php?f=4&t=18633&p=118646#p118646

Janio

[Shark]

Agradeço pelo dica Jânio. É um Caminho...

Preciso de um design (impressão) dO boleto escrito em Harbour. Apenas para ser visualizada no preview.
Tentei adaptar as do MR-BOLETO mas as coordenadas de impressão para PDF são diferentes das que usamos. Não sei se é em centímetros ou pixels. Tentei as duas mas acabei desistindo devido a dificuldade.

Alguém poderia gentilmente fornecer esses códigos?

A impressão definitiva farei pelo PDF gerado pelo MR-BOLETO mesmo.

[Kapiaba]

https://www.4shared.com/zip/hSds8SDpce/MRBoleto3.html

https://www.4shared.com/rar/K-JflMkJba/ ... o__1_.html

https://www.4shared.com/rar/RWcTdFeXba/MRBOLETO.html

https://www.4shared.com/zip/HuVoI08ice/MRBOLETO.html

[JoséQuintas]

Tem a PDF Class que permite trabalhar em pixels, centímetros ou row/col.
Pode usar a idéia dela.

Lembro de ter visto uma classe/rotina pra usar em PDF ou Windows, acho que foi na OOHG.

Pelo que entendi, precisa mais da idéia do que do fonte propriamente dito.

Basicamente é criar uma rotina de conversão:

oPDF:DrawText( Row, Col, Text )

Algo como ConverteRow( nRow ), ConverteCo( nCol )
Basta a fórmula pra "traduzir" uma medida pra outra.

[JoséQuintas]

O que uso na PDFClass

Código: Selecionar todos

METHOD RowToPDFRow( nValue ) CLASS PDFClass

   DO CASE
   CASE ::nDrawMode == PDFCLASS_DRAWMODE_ROWCOL
      nValue := ::nPageHeight - ::nBottomMargin - ( nValue * ::nFontSize * ::nLineHeight )
   CASE ::nDrawMode == PDFCLASS_DRAWMODE_CENTIMETER
      nValue := ::nPageHeight - ( nValue * 2.83464 )
   CASE ::nDrawMode == PDFCLASS_DRAWMODE_PIXEL
      nValue := ::nPageHeight - nValue
   ENDCASE

   RETURN nValue

METHOD ColToPDFCol( nValue ) CLASS PDFClass

   DO CASE
   CASE ::nDrawMode == PDFCLASS_DRAWMODE_ROWCOL
      nValue := nValue * ::nFontSize / 1.666 + ::nLeftMargin
   CASE ::nDrawMode == PDFCLASS_DRAWMODE_CENTIMETER
      nValue := nValue * 2.83464 // 72 * 0.03937
   CASE ::nDrawMode == PDFCLASS_DRAWMODE_PIXEL
      // Nothing to do
   ENDCASE

   RETURN nValue

Essas duas rotinas convertem tudo, e posso usar qualquer das três medidas, só precisou da fórmula.
Para a Harupdf tanto faz, ela recebe sempre na medida dela.