Yazıcıyı Seçme Ve Yazdırma

Admin Mesaj Sayısı : 1274 Yaş : 31 Nerden : sakarya Kayıt tarihi : 05/05/08

StopPrinting = False
On Error GoTo errhandler

CommonDialog1.PrinterDefault = True
CommonDialog1.CancelError = True

CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums
CommonDialog1.ShowPrinter

Printer.Print ""
Printer.Print " aaaa"
Printer.Print " bbb "

Printer.EndDoc

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

End Sub