criar e listar darf com jpg

[tonyx]

temos fucoes com draw listar o bmp primeiro e o texto depois, pois bem.
como criar darf e listar em seguida, ja que figura fica dentro quadrado e tem colocar valores ao lado da figura.
-- pensei scarniar darf vazio, em jpg , e listar o este jpg junto com valores nos quadrados (fico duvida se impressora laser, juntaria este jpg e valores espacos certos)
--- listar(darf.jpg,1,1) // parte cima - via 1
--- @ 01,25 say valor ´1´
--- @ 03,25 say valor ´2´
-- listar(darf.jp,25.01) // parte mbaixo - via 2
--- @ 25,25 say valor ´1´
--- @ 27,25 say valor ´2´

------------------- e possivel esta ideia ----

[gvc]

Bom dia.

Acredito que vc esteja querendo imprimir uma imagem e colocar valores dentro da mesma. Como um pré impresso.
Confirme se é isso.

Ah! De onde vc esta postando? Vc esta usando um tradutor para portugues?

[tonyx]

poderiamos ter impreso jpg e colocar valor em cima ---

mas seriam 2 vias, cima e outra em baixo na mesma folha



---
Nota da Moderação (Maligno):
Em atendimento às regras do fórum, o texto acima, totalmente em MAIÚSCULAS, foi editado e convertido para letras minúsculas.

[gvc]

Vc só poderá imprimir BMP.

Eu não posso mandar o fonte, pois é da empresa. Vou mandar algumas partes.

Criar a impressão e selecionar o arquivo para imprimir

Código: Selecionar todos

cprinter := getdefaultprinter()
oprinter:= win32prn():new(cprinter)
oPrinter:Landscape:= .F.
oPrinter:FormType := FORM_A4
oPrinter:Copies   := 1
oPrinter:Create()
oPrinter:startDoc()

cFileName := "brasaog.bmp"
oBmp      := Win32Bmp():new()
oBmp:loadFile(cFileName)

Posiciona e imprime o texto.

Código: Selecionar todos

oPrinter:SetPrc(linha, 40)
oPrinter:TextOut(transform(a_tot[1, 1], '@E 99,999,999,999.99'),,, 1)
oPrinter:SetPrc(linha, 60)
oPrinter:TextOut(transform(a_tot[1, 2], '@E 99,999,999,999.99'),,, 1)
oPrinter:SetPrc(linha++, 80)
oPrinter:TextOut(transform(a_tot[1, 3], '@E 99,999,999,999.99'),,, 1)

Destroi os objetos

Código: Selecionar todos

oprinter:enddoc()
oprinter:destroy()

obmp:destroy()
obmp2:destroy()
obmp3:destroy()

Desenha uma caixa e imprime a imagem

Código: Selecionar todos

oPrinter:box(tamanhos[1, 1], tamanhos[1, 2], tamanhos[1, 3], tamanhos[1, 4])
oBmp:draw( oPrinter, {tamanhos[2, 1], tamanhos[2, 2], tamanhos[2, 3], tamanhos[2, 4]} )

Vc pode imprimir a imagem mais de uma vez na página mudando os parâmetros.
Vc pode carregar na memória quantas imagens forem necessárias.

Veja na documentação do xHarbour, as classes win32prn e win32bmp.

[sygecom]

No link abaixo tem exemplo da classe WIN32PRN:
viewtopic.php?t=6465