Kod: CommonDialog1. CancelError = True CommonDialog1. PrinterDefault = True CommonDialog1. Copies = 1 CommonDialog1. ShowPrinter For kopya = 1 To CommonDialog1. Copies Printer. Print Text1. Text Printer. EndDoc Next kopya yazıcı penceresi bu kodla birlikte geliyo fakat yazdır ve iptal butonları var ve yazdır dediğim zaman güzel yazdırıyor ama iptal diyince hata veriyo yardımcı olurmusunuz.

On Error GoTo Bitir CommonDialog1. CancelError = True CommonDialog1. PrinterDefault = True CommonDialog1. Copies = 1 CommonDialog1. ShowPrinter For kopya = 1 To CommonDialog1. Copies Printer. Print Text1. Text Printer. EndDoc Next kopya Bitir: Exit Sub böylece hata vermesini engellersin.