Yazdırma Butonu Oluşturma

[gokhan_3506]

Sub PrintRpt3()
With Worksheets("Sayfa1").PageSetup
.CenterHorizontally = True
.PrintArea = "$A$3:$F$15"
.PrintTitleRows = ("$A$1:$A$2")
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Worksheets("Sayfa1").PrintOut
End Sub

Yukarıda ki makroyu yazdırma butonuna atadım sadece sayfa1 dosyasını yazdırıyor ama aynı yazdırma butonunu sayfa2 ve sayfa3 dosyalarını kopyaladığım zaman yıne sayfa1 dosyasını yazdırıyor.Her sayfa için tek tek mı makro yazmalıyım yoksa her dosyanın içinde bulunan yazdırma butonu bulunduğu sayfayı yazdırırmı ne yapmalıyım ? (Butun dosyalarda ki sayfa düzeni aynı a3:f15)

 

[Murat OSMA]

Yazdıracağınız sayfa adını belirtmek zorundasınız. Ya da hangi sayfadaysanız o sayfayı yazdırmak istiyorsanız; With Worksheets("Sayfa1").PageSetup satırı yerine; with activesheet.pagesetup son satırdaki Worksheets("Sayfa1").PrintOut yerine de, yine activesheet.printout yazabilirsiniz. Tek butonla bütün sayfaları yazdırmak istiyorsanız; o zaman farklı bir yol önerebilirim...

İsterseniz ek'teki dosyaları bir inceleyiniz, işinize yarayabilir.

 

[gokhan_3506]

Tşk

eline sağlık her sayfada kı yazdır butonu o sayfanın cıktısını alıyor sağol

 

[Murat OSMA]

ActiveSheet.PrintOut komutu: aktif sayfayı yazdır anlamına gelir. Eğer her sayfada bir buton varsa ve o butona ataman makroda bu kod satırı varsa, o sayfanın çıktısını alır (yazdırır)

İyi akşamlar...

 

[Murat OSMA]

ActiveSheet.PrintOut komutu: aktif sayfayı yazdır anlamına gelir. Eğer her sayfada bir buton varsa ve o butona atanan makroda bu kod satırı varsa; o sayfanın çıktısını alır (yazdırır).

İyi akşamlar...


■ Bağlantı hatası nedeniyle, aynı mesajı iki kez göndermiş oldum. Lütfen bu mesajımı siler misiniz ?

Teşekkür ederim.