Yazdırma

[teonet]

Merhaba Sayın Yetkili

Ekte bulunan dosya hakkında yardıma ihtiyacım bulunuyor. Açıklama dosya içerisinde mevcuttur. Kısaca; her sayfa için ayrı buton bulunuyor. Bu butonlara yazdırma komutu ekleme.

Yardımlarınız için teşekkürler

 

[Korhan Ayhan]

Selamlar,

Sayfanıza eklemiş olduğunuz butonlara tasarım modundayken çift tıklayın. Kod editörü açılacaktır. Açılan bölüme aşağıdaki kodu uygulayın.

Private Sub CommandButton1_Click()
    Sheets("1").PrintOut
End Sub

Diğer butonlar içinde aynı işlemi yapın fakat kodda geçen sayfa isimlerini değiştirmeyi unutmayın.

 

[teonet]

Sayın Korhan
Vermiş olduğunu bilgi için çok teşekkürler, fakat aşağıdaki hatayı alıyorum. Yardımcı olabilir misiniz?

Private Sub CommandButton1_Click()
Sheets("1").PrintOut
End Sub

 

[Korhan Ayhan]

Selamlar,

Hata derken neyi kastettiniz anlamadım. Kodun çalışması için makroları etkinleştirmeniz gerekiyor.

 

[teonet]

Sayın Korhan Bey
Hata ekranını ekledim. Resimde görüldüğü gibi hata ekranı geliyor. kapattığımda tekrar geliyor.

Dosya üzerinde uygulayarak göndermeniz mümkün mü? Yardımlarınız için tekrar teşekkür ederim.

 

[teonet]

Sayın Korhan sorunu buldum.
yardımlarınız için çok teşekkür ederim. Hata benim hatalı kopyalama yapmamdan kaynaklanıyor. Buton isminde bulunan rakamı değiştirmeden kaynaklayor.

tşk
İyi çalışmalar.