Impressão

[clebervn]

Como faço para imprimir uma folha de registro de empregados, por exemplo, contendo tipo o modelo abaixo ?


┌──────────────────────────────────────────┐
│ Ficha de Registro de Empregado │
├──────────────────────────────────────────┤
│ Nome : xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx │

...

ou seja, q imprima esses caracteres de linha, canto, etc....

[clebervn]

Cabe acrescentar como comentário q estou imprimindo a foto do empregado, logo, estou utilizando modelo do win32prn, porque desconheço outro jeito q imprima foto tb.

[gralak]

Se vc usar a impressão com a HBPRINTER ela tem uma propriedade que se CHAMA BOX com ela vc consegue fazer esses retangulos bem legal olha o exemplo ai


oPrinter := HPrinter():New(,.t.,,,.f.,1,.f.)
oPrinter:StartDoc(.t.)
oPrinter:StartPage()
oPrinter:Box(3,5,200,25)
oPrinter:EndPage()
oPrinter:EndDoc()
oPrinter:Preview()

[clebervn]

Vlw, esse box resolveu mesmo o q eu precisava

ABC

[gralak]

Flw precisando posta ai pra nós ....

[clebervn]

Sobre esta a classe, a HPrinter....

como funciona o método BITMAP

pq to passando segundo a linha abaixo, mas aparece no preview uma quadrado preto somente, o arquivo q envio é BMP.

oPrinter:Bitmap( 5,10,35,50,0,cFoto)

abc

[clebervn]

Já achei o problema, tem q carregar a foto antes... fica assim para quem desejar...

oPrinter := HPrinter():New(,.T.,,,.F.,1,.F.)
oPrinter:StartDoc(.T.)
oPrinter:StartPage()
oPrinter:Box(3,5,200,25)
cFoto := caminho da foto+"foto.BMP"
oFoto := OpenBitmap(cFoto,oPrinter:hDC)
oPrinter:Bitmap( 5,10,35,50,,oFoto)
oPrinter:EndPage()
oPrinter:EndDoc()
oPrinter:Preview()
oPrinter:End()
DeleteObject(oFoto)

Só falta agora ver uma boa resolução, ou parametros q passa no BITMAP q tvz resolva.