IMPRIMINDO COM O PRINTER
gostaria de saber se tem como imprimir uma imagem .JPEG atraves do printer????
Obg
Obg
Imprimir uma imagem
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)
Private Sub Command1_Click()
'
Printer.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height
Printer.EndDoc
End Sub
eu consegui isso no site do Macoratti olha o link
http://www.macoratti.net/vb_print2.htm
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)
Private Sub Command1_Click()
'
Printer.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height
Printer.EndDoc
End Sub
eu consegui isso no site do Macoratti olha o link
http://www.macoratti.net/vb_print2.htm
so q se for image é clro poe Printer.PaintPicture Image1.Picture, 0, 0, Image1.Width, Image1.Height
e no Width, Height vc vai dando a posicao
e no Width, Height vc vai dando a posicao
Tópico encerrado , respostas não são mais permitidas