Usando impressora

[AnonymousKesha 11]

Bom hoje vou ensinar alguns curiosos a como imprimir o que está escrito em uma textbox!

 

Adicione os seguintes itens :

 

-1TextoBox

-3Button

-1PrintDocument

-1FontDialog

-1PrintDialog

 

Button1 = Imprimir

Button2 = Configurar font

Button 3 = Configurar impressora

 

Códigos!

 

Button1

PrintDocument1.Print()

 

Button2

FontDialog1.ShowDialog()

TextBox1.Font = FontDialog1.Font

 

Button3

PrintDialog1.ShowDialog()

 

PrintDocument1

Try 'Inicio do bloco try

e.Graphics.DrawString(TextBox1.Text, TextBox1.Font, Brushes.Black, 20, 20) 'Inicio da impresão

MsgBox("Impresão realizada com sucesso!", MsgBoxStyle.Information, Title:="Impresão") 'Mensagem de impresão bem sucedida

Catch 'mensagem caso ocorra o erro

MsgBox("Erro ao tentar imprimir texto!", MsgBoxStyle.Critical, Title:="Erro de impresão")

End Try 'Fim do bloco try

 

Agora acabe com a tinta de sua impressora (;:sarcastico: