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

yyhy

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
917
Excel Vers. ve Dili
Microsoft Office 2021 TR
Microsoft 365 TR
Altın Üyelik Bitiş Tarihi
20-03-2029
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.
 

Ekli dosyalar

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
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

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
917
Excel Vers. ve Dili
Microsoft Office 2021 TR
Microsoft 365 TR
Altın Üyelik Bitiş Tarihi
20-03-2029
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
C#:
Sub CommandButton10_Click() 'Yazdır Komutu
Worksheets("KK1").PrintPreview
End Sub
 

yyhy

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
917
Excel Vers. ve Dili
Microsoft Office 2021 TR
Microsoft 365 TR
Altın Üyelik Bitiş Tarihi
20-03-2029
Acaba örnek dosya üzerinde butonlara nasıl eklerim?
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
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
C++:
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
 
Üst