Tüm sayfaları yazdır

[polis-53]

Merhaba arkadaşlar günaydın ekte gönderdiğim dosyada icmal sayfasında iken yazdır dediğimde diğer tüm sayfaları yazdırmak istiyorum yardımcı olabilirseniz çok sevineceğim.
iyi çalışmalar.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

For Y = 2 To Sheets.Count
Sheets(Y).PrintOut
Next

 

[polis-53]

Merhaba Seyit Tiken yazdığınız koda göre nasıl deneme yapacağımı anlayamadım. biraz daha açarsanız sevinirim. Ekteki dosya üzerinden yaparsanız çok sevinirim.
iyi çalışmalar.

 

[Seyit Tiken]

Tüm sayfaları Print yapmak istiyorsanız bunu bir Düğmeye bağlamanız lazım. Kod olmadan tüm sayfaları birden Print etmek, Excelde böyle bir özellik var mı bilmiyorum?

 

[Mahir64]

Merhaba,

Yazdırılacak sayfaları, CTRL ve fare yardımı ile seçerek (Grup) yazdırabilirsiniz.

 

[polis-53]

Seyit Tiken

Teşekkür ederim sayın Seyit Tiken bir soru daha soracağım ben tüm sayfalardan atıyorum L,M,N sayfalarını yazdırmayacağım bunu nasıl yapabilirim.
İyi çalışmalar.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

For Y = 2 To 10
Sheets(Y).PrintOut
Next

 

[halit3]

Teşekkür ederim sayın Seyit Tiken bir soru daha soracağım ben tüm sayfalardan atıyorum L,M,N sayfalarını yazdırmayacağım bunu nasıl yapabilirim.
İyi çalışmalar.

Alternatif olarak
Arama yapınca ben aşağıdaki linki buldum.

http://www.excel.web.tr/f48/yazdyr-komutu-t87837.html

 

[polis-53]

çok teşekkür ederim Seyit Tiken

 

[polis-53]

Seyit Tiken

Özür dileyerek tekrar merhaba affına sığınarak bir şey daha isteyeceğim bilgisayarımda birden fazla yazıcı var vermiş olduğunuz kodda yazıcı seçme ve kaç adet yazdıracağımı belirmek gibi bir kod yazabilirmisiniz yardımcı olursanız çok sevineceğim.
İyi çalışmalar.

 

[Seyit Tiken]

Makro Kaydet yöntemiyle yazıcı seçimini yapabilirsiniz.

For Y = 2 To 10
Sheets(Y).PrintOut Copies:=2
Next

 

[polis-53]

sayın Seyit Tiken makro kaydeti beceremedim biraz bilgi verirseniz yapmaya çalışacağım

 

[polis-53]

Merhaba Seyit Tiken yazıcı seçim işini hallettim aşağıdaki kodda yazıcı seçtirebiliyorum fakat kaç adet yazdıracağımı yapamadım yardımcı olursanız sevinirim.


Sub Tüm_Sayfaları_Yaz()
polis = ActivePrinter
yaz = Application.Dialogs(xlDialogPrinterSetup).Show
For Y = 1 To 7
Sheets(Y).PrintOut Copies:=3
Next
End Sub