TextBox içindeki yazıyı yazıcıdan yazdırma

[mayhemious]

Formumuza 1 adet commondialogBox (companents) 1 adet textbox ve 1 adet command button ekliyoruz. TextBox ımıza istedigimiz yazıları yazıyoruz (multiline özelligini açabiliriz)
ve command butona tıklıyoruz :)

Private Sub Command1_Click()

On Error GoTo errhandler

CommonDialog1.PrinterDefault = True
CommonDialog1.CancelError = True

CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums
CommonDialog1.ShowPrinter

Printer.Print Text1.Text
Printer.Print ""
Printer.Print ""

Printer.EndDoc

errhandler:
Select Case Err
Case 32755
MsgBox "Dokum iptal edildi.."
Case Else
End Select

End Sub