Makro ile tek yüze yazdırma.

[whirlybird]

Merhaba tüm interneti talan ettim bulamıyorum umarim yardimci olacak birisi vardir. Şimdiden teşekkür ederim.
Kurumsal bir yazicim mevcut varsayilan ayar olarak iki yüze yazdırma seçeneği aktiftir.
Printout makrosu kullanarak cikti almaktayim ama iki yüze basıyor her seferinde kagit çöpe gidiyor. Acaba otomatik tek yuze yazdıracak bir makro var mıdır?

 

[Asri]

Yazıcının sizde yüklü olan sürücüsü üzerinden ayarları değiştirebiliyor olmanız gerekiyor. Bu konuda IT yardımcı olacaktır.

Yok biz yapmıyoruz diyorlar ise, bir dolu bir boş yazdırma önerebilirim.
Önce yazdırmak istediğiniz sayfayı, sonra boş bir sayfa, sonra yazdırmak istediğiniz ikinci sayfayı gibi.

Yazıcı marka modelini de belirtirseniz belki farklı çözümler almanız mümkün olur.

 

[Emir Hüseyin Çoban]

.

2 sayfa gönderdiğinizde arkalı/önlü mü yazdırıyor yoksa
Tek sayfa gönderdiğinizde 2 yüzedemi yazıyor...

.

 

[whirlybird]

Şöyle bir durum var yazicinin iki yüze yazdir ayarlı olmasi gerekmektedir.
Yazicinin markası Lexmark modeli MS510dn.
Iki sayfa gönderiyorum önlü arkali yazdiriyor. Oysa ben sadece öne yazsin istiyorum yazici ayarları degistirilmiyor.

 

[Emir Hüseyin Çoban]

.

Sayfa sayısı kadar döngüye girip
Her sayfa için gibi print komutu verilebilir.

.

 

[Asri]

Şöyle bir durum var yazicinin iki yüze yazdir ayarlı olmasi gerekmektedir.
Yazicinin markası Lexmark modeli MS510dn.
Iki sayfa gönderiyorum önlü arkali yazdiriyor. Oysa ben sadece öne yazsin istiyorum yazici ayarları degistirilmiyor.

Yanlış anlama olmasın, yazıcının ayarlarını değiştirin demiyorum.
YAzıcının sizdeki ayarları değiştirilecek. Yazıcının kendi üzerindeki ayarları yine çift taraflı kalsın sorun değil.

Siz kendi sürücünüzdeki ayarlardan çift taraflı istemiyorsanız onu tek taraflı yapın diyorum.

Eğer sizin tüm yazdırma işlemleriniz çift taraflı olacak ve sadece excel de tek taraflı yazdıracaksanız o ayrı bir konu.

 

[Asri]

Kağıdın iki yüzüne yazdırma (önlü arkalı yazdırma)



Excel de yazdırırken aşağıdaki şekilde dener misiniz?

1. Belge açıkken, Dosya > Yazdır'ı tıklatın.
2. Özellikler, Tercihler, Seçenekler veya Ayarlar öğesini tıklatın.
3. Aşağıdaki konuma gidin:
   Düzen sekmesi > İki Yüze Yazdırma (Önlü Arkalı) alanı > Her iki yüze yazdır öğesini seçin
4. Yazıcı yazılımı iletişim kutularını kapatmak için Tamam düğmesini tıklatın.
5. Tamam veya Yazdır düğmesini tıklatın.

Tek taraflı yazdırmaya geri dönmek için, adım 1 ve 2'yi tekrarlayın ve sonra şuraya gidin:
Düzen sekmesi > İki Yüze Yazdırma (Önlü Arkalı) alanı > Yalnızca tek taraflı yazdır öğesini seçin

 

[Emir Hüseyin Çoban]

. . .

Örnek kod;

Sub kod()
    
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        Sayfa = ActiveSheet.HPageBreaks.Count + 1
    End If
    
    For i = 1 To Sayfa
        ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1
    Next i

End Sub

. . .