Página 1 de 1
Impressão
Enviado: 07 Jan 2010 09:54
por 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....
Re: Impressão
Enviado: 07 Jan 2010 10:18
por 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.
Re: Impressão
Enviado: 08 Jan 2010 08:45
por 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()
Re: Impressão
Enviado: 08 Jan 2010 10:55
por clebervn
Vlw, esse box resolveu mesmo o q eu precisava
ABC
Re: Impressão
Enviado: 08 Jan 2010 13:54
por gralak
Flw precisando posta ai pra nós ....
Re: Impressão
Enviado: 15 Jan 2010 10:18
por 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
Re: Impressão
Enviado: 15 Jan 2010 11:50
por 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.