Sayfayı arkalı önlü yazdırmak için makro

[selcukerd]

Merhaba arkadaşlar. 2 sayfalik çıktı almam gereken "imza foyu" sayfası var fakat bu iki sayfayi arkali önlü olarak tek sayfaya yazdırmak istiyorum ve bunu asagida bulunan makroya hangi komutu eklersem gerçekleşir. Makroyu butona bağladım. Kısacası butona bastığında sayfa arkali onlu çıksın.

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

 

[selcukerd]

Yardımcı olacak kimse yok mu

 

[Korhan Ayhan]

Merhaba,

Bildiğim kadarıyla istediğiniz işlem için yazıcınızın özellikler bölümüne ulaşmanız gerekiyor. Bunu da mevcut makro ile yapamazsınız.

Forumda print+sendkeys ifadeleri ile arama yaparsanız bazı başlıklara ulaşabilirsiniz.

 

[selcukerd]

Teşekkür ederim Korhan Hocam. Yazıcıdan ayarlıyorum onda sıkıntı yok makroya bağlanabilir mi diye düşündüm. Demekki olmuyormus

 

[Korhan Ayhan]

Olmuyor demedim. Yazıcınızın özellikler bölümüne ulaşmanız gerekiyor dedim ve yöntemi önerdim.

 

[selcukerd]

Teşekkür ederim

 

[hlojan]

Var bir çözümü

Vba çalışırken excelin arayüzünü kullandığından yazıcının ayarları yazıcı programında olduğundan olmuyor.


Şimdi çözümü anlatayım.

Yazıcın mesala CANON

Usb Driver ile bağlıysa Denetim Masası Yazıcılara girip yazıcı ekle diosun.

Kendi yazıcını bir daha ekliyorsun. Yazıcının Adınıda Arkalı Önlü yapıosun

Eklediğin yazıcının ayarlarına denetim masasından giriyorsun.

Arkalı önlü ayarlıosun


Sonra excel açıosun.

    Application.ActivePrinter = _
        "Ne02: üzerindeki CANON ARKALI ÖNLÜ "
    ExecuteExcel4Macro "PRINT(2,1,1,1,,,,,,,,2,,,TRUE,,FALSE)"

Bu kodu Excel Makro kaydet ilede çıkarabilirsin % 100 çalışıyor.

Kolay gelsin

 

[selcukerd]

İlginiz için teşekkür ederim Hocam. Deneyeceğim.

 

[hlojan]

Dene sonucu yaz