IMAGEM EM RELATORIO

LEANDRO.BUENO 15/07/2005 13:43:17
#94340
Boa Tarde amigos do Vbmania,
Coloquei uma imagem jpg no meu form, e gostaria que ela fosse imprimida junto com meu relatório no começo do cabecalho.
Peço a ajuda de vocês de como faria.

No cabeçalho do relatório uso este código:
Private Sub Cabecalho(objPrint As Object, Ratio As Double)
On Error Resume Next
With objPrint
.PaperSize = vbPRPSA4
.Font = "Arial"
.FontSize = 20 * Ratio
.FontBold = True
.CurrentY = 1.5
.CurrentX = 5
objPrint.Print "DISTRIBUIÇÃO DE DESENHOS"
.FontSize = 13 * Ratio
.CurrentY = 3
.CurrentX = 1.6
objPrint.Print "Cód"
.CurrentY = 3
.CurrentX = 3.6
objPrint.Print "Cliente"
.CurrentY = 3
.CurrentX = 6.1
objPrint.Print "NºDes."
.CurrentY = 3
.CurrentX = 10.1
objPrint.Print "Rev"
.CurrentY = 3
.CurrentX = 12.1
objPrint.Print "Data"
.CurrentY = 3
.CurrentX = 14.6
objPrint.Print "Nº"
.CurrentY = 3
.CurrentX = 16.1
objPrint.Print "Setor"
End With
objPrint.Line (1.5, 2.3)-(19, 2.4), 0, BF
objPrint.Line (1.5, 3.6)-(19, 3.65), 0, BF
JEAN.JEDSON 15/07/2005 13:48:59
#94342
isso não resolve?

Printer.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height
LEANDRO.BUENO 15/07/2005 14:08:27
#94348
não saiu nada amigo jean
JEAN.JEDSON 15/07/2005 15:04:57
#94363
o nome de seu objeto de imagem é picture1???
LEANDRO.BUENO 15/07/2005 15:11:58
#94366
não é image1.
por este motivo coloquei:
Printer.PaintPicture image1.Picture, 0, 0, image1.Width, image1.Height
LEANDRO.BUENO 19/07/2005 08:08:34
#94844
não funcionou
o que posso fazer agora?
Tópico encerrado , respostas não são mais permitidas
Voltar