Como imprimir logotipo usando Win32prn ou WordPad ?

[lugab]

Ola amigos,

Preciso imprimir um logotipo pequeno, bmp ou .jpg, num relatorio.

Atualmente eu uso [x] Harbour, gero arquivos texto com extensão .RTF ou .DOC, e os imprimo direto usando o win32prn ou então eu ofereço ao usuário a opção de os abrir , para visualização/impressão, ou usando o WINWORD ou o WORDPAD.

Dei uma vasculhada aqui no fórum e achei algumas postagens de tentativa de ajuda, do tipo "talvez consiga dessa ou daquela forma" , mas, que não conseguiram resolver o problema de quem buscou a ajuda. Até tentei, sem sucesso, uma ajuda do Rochinha , que usa o fivewin.lib

Então é isso, amigos. Mais uma vez aqui estou para pedir ajuda a vcs, craques da seleção do fórum..

Um abraço,,,

Gabriel

[Imatech]

Olá Gabriel !
.
.
.
Segue exemplo ( ..\contrib\hbwin\tests\testprn.prg ):

Código: Selecionar todos

Procedure Main()
   LOCAL oPrinter := Win_Prn():New( cPrinter )
   .
   .
   .
   PrintBitMap( oPrinter, 'logo.bmp' )
   .
   .
   .
   RETURN

PROCEDURE PrintBitMap( oPrn, cBitFile )
   LOCAL oBMP

   IF Empty( cBitFile )
      *
   ELSEIF ! hb_FileExists( cBitFile )
      Alert( cBitFile + " not found " )
   ELSE
      oBMP := Win_BMP():New()
      IF oBmp:loadFile( cBitFile )

          // coordenadas e tamanho de impressão do logo
         oBmp:Draw( oPrn, { 100, 100, 200, 150 } )

      ENDIF
      oBMP:Destroy()
   ENDIF

   RETURN

[lugab]

Poxa Imatech, que desacerto, esse meu. Eu uso é o xharbour e essa ajuda q vc postou é harbour puro.

Tem uma pasta CONTRIN no meu xhb, mas não tem nada parecido com exemplos de usso dessa lib HBWIN.

Mas , fica a dica, pra muita gente daqui que já usa o Harbour..

Valeu a intenção.

[Imatech]

Olá Gabriel !
.
.
.
Win32prn é originaria do xharbour, com certeza a rotina tambem ira funcionar normalmente...
.
só adequar os comandos necessários...
.
.
.

[lugab]

certo Imatech,

Eu complilei no Xharbour e deu inexistênci das funçoes abaixo:

Código: Selecionar todos

hb_FileExists( cBitFile )
  e
Win_BMP():New()

A Função Hb_FileExists() eu até imagino que seja substituível por algo do tipo :

Código: Selecionar todos

If .not. file("xxx.xxx")

Porém, a função: Win_BMP() , sei não !

[Imatech]

Win32BMP():New()

[lugab]

Pronto, Imatech, ta funcionando no XHb

Obrigado mestre !

:{

[lugab]

Alo amigos,

Agora eu estou apanhando na questão das coordenadas

Gostaria de imprimir o logo em cada folha impressa, nas últimas linhas e do
do lado direto de um relatório de 58 linhas...

Como é mesmo q funciona essas coordenadas ?

Apenas essas 4 variáveis definem o posicionamento da imagem no papel ou tem algo mais ?
Fiz varias combinações e não obtivbe sucesso

Código: Selecionar todos

   IF oBmp:loadFile( cBitFile )

     // coordenadas e tamanho de impressão do logo
    oBmp:Draw( oPrn, { 100, 100, 200, 150 } )

   ENDIF

[Imatech]

Olá Gabriel !
.
.
.
Segue exemplo para codificação...

Código: Selecionar todos

                     // PICTURE
                     IF File( cBitFile )
                        oBmp := WIN32BMP():New()
                        oBmp:LoadFile( cBitFile )
                        oBmp:draw( oPrn, { 200, 100, 100, 200 } )
                        oBmp:Destroy()
                     ENDIF

.
.
.
Sucesso...

[lugab]

Oi, Ronaldo.

Vc já havia me instruido sobre como imprimir e eu já estpou conseguindo

O problema, agora, é que eu não tenho conhecimento algum sobre manipulação dessas coordenadas de posicionamento, que são passadas pelo draw():

Código: Selecionar todos

            oBmp:draw( oPrn, { 200, 100, 100, 200 } )

Aliás, eu nem sei se são essas coordenadas que indicam linha e coluna do começo da impressaõ, de forma que, eu não consegui ainda posicionar o logotipo na margem direita do rodapé da página

[Imatech]

Olá Gabriel !
.
.
.
oBmp:draw( oPrn, { x, y, w, h } )
.
x := Top ( Coordenada que indica o ponto de inicio do desenho: mm da margem superior da página )
y := Left ( Coordenada que indica o ponto de inicio do desenho: mm da margem esquerda da página )
w := Largura ( Largura a ser impressa: mm )
h := Altura ( Altura do Desenho: mm )
.
.
.
Acompanhe meus post's:
.
Além do MRBoleto,
.
Vou disponibilizar algumas classes para impressão em PDF ( MRPrint: Geração de arquivos PDF ), Alem de Gerar Papel personalizado/timbrado, pode por exemplo informar um arquivo de impressão ( TXT/PRN ) que contenha saltos de página e em seguida o mesmo é gerado em formado PDF ( Tambem gera o PDF para Tabelas .dbf e/ou Array/Vetor )...
.
.
.
Sucesso...

[lugab]

Valeu, Ronaldo !

Agora começou a fazer sentido

E sobre essa afirmação sua, abaixo reproduzida, saiba q é o sonho de muita gente inexperiente aqui do fórum, saber imprimir com caracteres gráficos.

E uns poucos, inexperientes e ainda por cima ignorantes , como eu, não fazem nem idéia de como começar a imprimir graficamente e por isso vai se virando, promovendo "embromation" em cima de arquivos .txt , tal como eu e esse logotipo q gerou o presentetópico

Vou disponibilizar algumas classes para impressão em PDF ( MRPrint: Geração de arquivos PDF ), Alem de Gerar Papel personalizado/timbrado, pode por exemplo informar um arquivo de impressão ( TXT/PRN ) que contenha saltos de página e em seguida o mesmo é gerado em formado PDF ( Tambem gera o PDF para Tabelas .dbf e/ou Array/Vetor )...
.

Obrigado mesmo, Ronaldo

[Imatech]

Olá Gabriel !
.
.
.
MR_Print: Projeto disponibilizado...
.
.
.
DownLoad no tópico:
https://pctoledo.org/forum/viewto ... =4&t=13588
.
.
.
Sucesso...

[lugab]

Valeu, ja baixei....

Agora é estudar e aprender..