Baskı Önizleme ve Yazdırma Aynı Anda

[Hüseyin61]

Merhaba arkadaşlar;
Private Sub CommandButton2_Click()
Sheets(Array("DRR1", "DRR2", "DRR3", "DRR4")).PrintPreview
End Sub

Private Sub CommandButton3_Click()
Sheets(Array("DRR1", "DRR2", "DRR3", "DRR4")).PrintOut
End Sub

kodlarını kullanarak çoklu çalışma sayfalarını önizleme ve yazdırma yapıyorum. Bunların ikisini tek butonda birleştirip, önizleme ve ardından yazdırmasını istiyorum. Ayrıca önizleme veya yazdırma yaptığımda çalışma sayfalarını gruplandırıyor. Çıkışta grubu çözüp, kodun olduğu sayfanın görenmesi gerekiyor. Sayfa sekmeleri gizli. Yardımlarınızı bekliyorum.

 

[Muzaffer Ali]

Merhaba.
Ön izleme sayfasını açar kapatınca hemen yazdırır.

Private Sub CommandButton2_Click()
Sheets(Array("DRR1", "DRR2", "DRR3", "DRR4")).PrintPreview
Sheets(Array("DRR1", "DRR2", "DRR3", "DRR4")).PrintOut
End Sub

Diğer sorunuzu anlamadım.

 

[Hüseyin61]

Merhaba.
Ön izleme sayfasını açar kapatınca hemen yazdırır.

Private Sub CommandButton2_Click()
Sheets(Array("DRR1", "DRR2", "DRR3", "DRR4")).PrintPreview
Sheets(Array("DRR1", "DRR2", "DRR3", "DRR4")).PrintOut
End Sub

Diğer sorunuzu anlamadım.

Bu kodlarla önizleme veya yazdırma yapınca, sekmelerin tamamını yazdırmak için seçimli hale getiriyor. Yani gruplandırıyor. Önizlemeyi kapattıktan veya yazdırdıktan sonra gruplandırılan sekmeler tekrar eski haline dönebilirmi?

 

[Muzaffer Ali]

Gruplandırma derken nasıl bir şey oluyor ekran görüntüsü paylaşır mısınız?

Ben bu kodları çalıştırınca ön izleme sayfası açılıyor aynı pencerede bütün sayfaları ön izleyebiliyorum.
Ön izleme sayfasını kapatınca bütün sayfalar yazdırılıyor.
Sizde tam olarak nasıl oluyor?

 

[Korhan Ayhan]

Tüm sayfalar seçili hale geliyor. Ama bende işlem bittikten sonra seçili olma durumu kalkıyor. Gerçi siz sayfa sekmeleri gizli demişsiniz. Ben görünür halde denedim.

 

[Muzaffer Ali]

Korhan Bey yazınca anladım.

Aşağıdaki kodu deneyin

Private Sub CommandButton2_Click()
    Dim AktifSayfa As Worksheet
    Set AktifSayfa = ActiveSheet
    Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3", "Sayfa4")).PrintPreview
    Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3", "Sayfa4")).PrintOut
    AktifSayfa.Select
End Sub

 

[Hüseyin61]

Korhan Bey yazınca anladım.

Aşağıdaki kodu deneyin

Private Sub CommandButton2_Click()
    Dim AktifSayfa As Worksheet
    Set AktifSayfa = ActiveSheet
    Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3", "Sayfa4")).PrintPreview
    Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3", "Sayfa4")).PrintOut
    AktifSayfa.Select
End Sub

[/QUOTE

Korhan Bey yazınca anladım.

Aşağıdaki kodu deneyin

Private Sub CommandButton2_Click()
    Dim AktifSayfa As Worksheet
    Set AktifSayfa = ActiveSheet
    Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3", "Sayfa4")).PrintPreview
    Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3", "Sayfa4")).PrintOut
    AktifSayfa.Select
End Sub

Teşekkürler Elinize Sağlık