Soru Yazdırma Sayfasını Önizleme Yapma ve Yazdırma Macrosu

[yyhy]

Yazdırma sayfalarını ön izleme yapma yazdırma macrosu nasıl yapabilirim acaba?
Butona tıkladığımda ilgili sayfanın ön izlemesi gelsin. Yazdırmak istiyorsanız evet. Yazdırmak istemiyorsanız hayır a tıklamak gibi.
Evet e tıklayınca yazıcıya Hayır a tıklayınca ise Denetim sayfasına geriye dönüş yapsa.
Yardımcı olabilecek arkadaşlara teşekkür ederim.

 

[ÖmerFaruk]

Sheets(1).PrintPreview

Dedikten sonra baskı önizlemesi açılır.
Çıkan bu ekranda yazdır derseniz yazar ve koda geri döner.
İptal derseniz, yazıdırmaz ve koda geri döner.

İşinizi çözüyor bence

 

[ÖmerFaruk]

Ayrıca,
Kodlarınıza şimdi baktım.

Userform1 diye bir form projenizde yok, kodlarınızda var.
Worksheets("Sayfa2") değil Worksheets("KK1") şeklinde kullanmalısınız.
Application.ScreenUpdating = False veya Application.ScreenUpdating =True gibi saırları dikkatsizce ve bazen fazladan kullanmışsınız.

 

[yyhy]

Sayın ÖmerFaruk Çalışma kitabımdaki kodu uyarlamaya çalıştım. Yapamadım. Bu haliyle çalışma kitabındaki kodları yok sayarsak acaba kod ne yazılabilir?

 

[ÖmerFaruk]

Sub CommandButton10_Click() 'Yazdır Komutu
Worksheets("KK1").PrintPreview
End Sub

 

[yyhy]

Acaba örnek dosya üzerinde butonlara nasıl eklerim?

 

[ÖmerFaruk]

Aşağıdaki kodları boş bir module içine yapıştırın.
Sayfa üzerindeki butonlara sağ tıklayıp, Makra Ata diyerek, ilgili isme sahip makroyu seçin

Sub KK1_Yazdır()
Worksheets("KK1").PrintPreview
End Sub
Sub KK2_Yazdır()
Worksheets("KK2").PrintPreview
End Sub
Sub KK3_Yazdır()
Worksheets("KK3").PrintPreview
End Sub
Sub KK4_Yazdır()
Worksheets("KK4").PrintPreview
End Sub
Sub CC1_Yazdır()
Worksheets("CC1").PrintPreview
End Sub
Sub CC2_Yazdır()
Worksheets("CC2").PrintPreview
End Sub
Sub CC3_Yazdır()
Worksheets("CC3").PrintPreview
End Sub
Sub KK1_Yazdır()
Worksheets("KK1").PrintPreview
End Sub

 

[yyhy]

Sayın ÖmerFaruk çok teşekkür ederim. Son hali ile dosyayı buradan paylaşıyorum. İhtiyaca cevap verdi.