DA UM HELP AKI COM COMANDO PRINT PARA PICTUREBOX

VIROS 03/09/2007 11:55:24
#233844
ola galera tipo to precisando de um comando semelhante ao form1.printform

so que para user da seguinte forma eu quero ter um botao q clicando nele ele imprime tudo que ta dentro do picturebox1 (label, img, text....) semelhante ao comando me.printform...


tnks para os que me ajudar.
MJAC 03/09/2007 13:33:13
#233864
Tenta isso:

Private Sub Command1_Click()
    Picture1.Picture = Picture1.Image
    Printer.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height
    Printer.EndDoc
End Sub


Sendo Picture1 o nome da sua PictureBox e Command1 o seu botão e Printer é um comando interno para imprimir na impressora padrão. Abraços
VIROS 04/09/2007 17:52:16
#234132
n funciono quando eu mando imprimir sai uma folha em branco..... mais o brigado pela ajuda ....



se alguem tiver mais aguma ideia....?
VIROS 05/09/2007 14:42:45
#234295
???
TAMANINI 05/09/2007 15:16:55
#234307
Deixe a propriedade .AutoRedraw=True da Picture1.
Isso já é o suficiente:
Private Sub Form_Load()
    Printer.PaintPicture Picture1.Image, 0, 0, Picture1.Width, Picture1.Height
    Printer.EndDoc
End Sub
SERGIO.CARDOSO 05/09/2007 15:17:42
#234308 Resposta escolhida
TAMANINI 05/09/2007 15:22:12
#234310
ou ainda:
Private Sub Form_Load()
    Picture1.Picture = "caminho_da_imagem"
    Printer.PaintPicture Picture1.Image, 0, 0, Picture1.Width, Picture1.Height
    Printer.EndDoc
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar