YAzdırma Sorunu

[hatirlabeni]

Merhaba arkadaslar
Excelde oluşturdugum 8 tane çalışma sayfası haxzırladım bunları tek bir defada nasıl yazdırabilirim.
Veya ilk safya haric diger tüm sayfaları yazdırmamın bir yolu var mı ? ilk sayfada buton oluşturarak nasıl yazdırırız.
Örneğin 1. sayfayı yazdır
2. sayfayı yzdır
.
.
.
.
.
şeklinde.
şimdiden teşekkur ederim yardımlarıız için.

 

[Seyit Tiken]

Bu şekide deneyiniz.

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

 

[hatirlabeni]

Bu şekide deneyiniz.

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

kod kullanmasını bilmiyorum size zahmet nasıl kullanacagimi soyler misiin ?

 

[Seyit Tiken]

 

[assenucler]

Bir rica

Sayın Seyit Tiken,


Merhabalar ve iyi pazarlar.

Sayfayı "dikey" değil, "yatay" yazdırmak istersem, kodda nasıl değişiklik gerekiyor?

İlgi ve yardımınıza önceden teşekkürler.

 

[Seyit Tiken]

Aralığı kendinize göre belirleyiniz.

For y = 2 To Sheets.Count
Sheets(y).[color=red][a1:g20][/color].PrintOut
Next

 

[hatirlabeni]

dedğinizin aynısını uyguladım fakat tümünü yazdıramadım veya ben kodları kaydedemedim dosyyı ekledim size zahmet bakabilir misiniz_?

VERİ çalışma saysına eklemek istedim beceremedim.

 

[Seyit Tiken]

Ekli dosyayı deneyiniz.

 

[hatirlabeni]

tüm sayfaları yazdır. xls'!Düğme_35 tıklat makrosu caliştirilamiyor. Makro bu çalışma kitabında olmayabilir veya tüm marolar devre dısı bırakılmıs olabilir.



uyarısını veriyor hocam
Hocam tümünü birden değilde tek tek yazdırmamizin imkanı yok mu?
Örneğin çalışma sayfası 1.de 1. sayfayı yazdır
2. saytfayı yazdır
.
.
.
gibi.

 

[Seyit Tiken]

Biraz uğraşmış olsaydınız yapardınız.

 

[hatirlabeni]

Hocam kusura bakmayın bayağı yazdım farkındayım ama yine yazdırmadi ben uğrasstim baska forumlarda arastirdim ama yok yapamadım.

Şuan sizin vermiş olduğunuz dosya su hatayı verdi hocam resim olarak ekledim.

 

[Seyit Tiken]

Ezber yapılırsa böyle olur.
Seçili alanı, Sub yazdır() olarak değiştirip deneyiniz.

Kendinizi geliştirmek için şu Linke bir göz attın.
http://www.excel.web.tr/f60/

 

[hatirlabeni]

Ezber yapılırsa böyle olur.
Seçili alanı, Sub yazdır() olarak değiştirip deneyiniz.

Kendinizi geliştirmek için şu Linke bir göz attın.
http://www.excel.web.tr/f60/

Hocam Tesekkur Ederim Sonunda yapabildim yardımınız için çok saolun.