hızlı taslak olarak yazdırmak

[ksenon001]

iyi günler hocalar ustalar hp marka yazıcım var

Private Sub CommandButton3_Click()
For a = 5 To Sheets.Count
Sheets(a).PrintOut
Next
mesaj = MsgBox("Belge Yazıcıya Gönderildi", 0 + 64, "Bilgi")
End Sub


yukarıda belirtilen komutla excel çalışmamın 5 inci sayfasından itibaren


Private Sub CommandButton3_Click()
Dim mesaj
If Sheets("KGF").Cells(1, 9) = "" Then mesaj = MsgBox("Kasa Girdi Numarası Boş", 0 + 16, "Uyarı")
If Sheets("KGF").Cells(3, 5) = "" Then mesaj = MsgBox("Ünite Adı Boş", 0 + 16, "Uyarı")
If Sheets("KGF").Cells(5, 5) = "" Then mesaj = MsgBox("Teslim Edenin Adı Soyadı Boş", 0 + 16, "Uyarı")
If Sheets("KGF").Cells(7, 5) = "" Then mesaj = MsgBox("Teslim Ettiren Boş", 0 + 16, "Uyarı")
If Sheets("KGF").Cells(9, 5) = "" Then mesaj = MsgBox("Teslim Tarihi Boş", 0 + 16, "Uyarı")
If Sheets("KGF").Cells(13, 1) = "" Then mesaj = MsgBox("Ne İçin Teslim Ettiği Boş", 0 + 16, "Uyarı")
If Sheets("KGF").Cells(13, 7) = "" Then mesaj = MsgBox("Teslim Alınacak Tutar Boş", 0 + 16, "Uyarı")
If Sheets("KGF").Cells(19, 7) = "" Then mesaj = MsgBox("Teslim Alınacak Tutar Boş", 0 + 16, "Uyarı"): Exit Sub

Dim Kopyasayısı As Long
Dim Kopyanumarası As Long
Kopyasayısı = Application.InputBox("Kaç kopya alacaksınız", Type:=1)
For Kopyanumarası = 1 To Kopyasayısı
Sheets("KGF").PrintOut
Next Kopyanumarası

mesaj = MsgBox("Belge Yazıcıya Gönderildi", 0 + 64, "Bilgi")
End Sub



bu komutlada KGF adlı sayfayı kaç kopya olacağını seçerek
yazdırıyorum boş alan varsa beni uyarıyor ama yazıcımın tercihleri her zaman en kaliteli oluyor buda mürekkep sarfiyatını arttırıyor.

yazdırmayı hızlı taslakta yapabilmek mümkünmü acaba