İki Yüze de Yazdırma Sorunu

[demirdemir88]

Arkadaşlar Merhaba;

Aşağıdaki makro yardımı ile hedef dosyayı buton ile (Excel dosyasında aynı sekmedeki iki sayfa) otomatik olarak yazdırabiliyorum fakat çift taraflı yazdıramıyorum. Nasıl bir ekleme yapmam gerekiyor.

Yardımlarınız için şimdiden teşekkür ederim.

Sub Düğme2_Tıklat()
        
        a = MsgBox("'İmza Föyü' sayfasında 'dosya-yazdır' sekmesinden 'İki yüze de yazdır' seçeneğini ayarladıysanız 'Tamam' butonuna basarak çıktıyı alabilirsiniz. Ayarlamadıysanız lütfen 'iptal' butonuna basarak geri dönünüz.", vbOKCancel, "UYARI!!!")
    If a = vbOK Then
    Set AA = Sheets("Personel Listesi")
    Set BB = Sheets("İmza Föyü")
    For i = 23 To AA.Cells(Rows.Count, "B").End(3).Row
        BB.Range("E4:F4") = AA.Cells(i, "G")
        BB.Range("G4:H5") = AA.Cells(i, "B")
        BB.Range("J4:O4") = AA.Cells(i, "E")
    BB.Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
    Next i
    Set AA = Nothing
    Set BB = Nothing
    End If

    
End Sub

 

[demirdemir88]

Arkadaşlar bir önceki mesajımda yanlış kodu yazmışım kusura bakmayın düzeltip yeniden yayınladım.

Yardımlarınızı bekliyorum...