|
|
Postada em 23/03/2006 07:43 hs
Gostaria de saber como é possivel imprimir logotipo em relatórios usando o objeto PRINTER. |
|
|
|
|
|
|
|
Postada em 23/03/2006 08:00 hs
O codigo abaixo imprime a imagem em Picture1.(Voce pode usar o controle image).
Para imprimir na posição atual substitua as coordendas 0,0 por Printer.CurrentX, Printer.CurrentY.
Para aumentar a largura e/ou o comprimento da imagem impressa altere os valores de Picture1.Width, Picture1.Height.
Ex: Picture1.Width * 2, Picture1.Height * 2 ( imprime a imagem com o dobro do tamanho) vPrivate Sub Command1_Click()
'
Printer.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height
Printer.EndDoc
End Sub espero ter ajudado... se a dica funcionou, fecha o topido! falow um abraço |
|
|
|
|
|
Postada em 23/03/2006 08:14 hs
O codigo abaixo imprime a imagem em Picture1.(Voce pode usar o controle image).
Para imprimir na posição atual substitua as coordendas 0,0 por Printer.CurrentX, Printer.CurrentY.
Para aumentar a largura e/ou o comprimento da imagem impressa altere os valores de Picture1.Width, Picture1.Height.
Ex: Picture1.Width * 2, Picture1.Height * 2 ( imprime a imagem com o dobro do tamanho) vPrivate Sub Command1_Click()
'
Printer.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height
Printer.EndDoc
End Sub espero ter ajudado... se a dica funcionou, fecha o topido! falow um abraço |
|
|
|
|
|
Postada em 23/03/2006 08:59 hs
E como ajudou, foi na lata direto. Obrigado. vlu// |
|
|
|
|
