Çalışma kitabındaki istenilen sayfanın yazdırılması

[drummers]

Ekteki dosyamda "dilekçeler" sekmesinde 9 sayfa var

sorum şudur : sekmenin her sayfası için yazdır makrosu istiyorum


Teşekkürler

 

[leumruk]

Merhaba,
Örnek makroyu ekliyorum. Diğer sayfaları buna göre kendiniz yazabilirsiniz.
1. bölüm için :

Sub Makro1()
    [a5:s26].PrintOut Copies:=1
End Sub

 

[drummers]

alan belirlemeden yapmak istiyorum

 

[leumruk]

Aşağıdaki kodu deneyiniz.

ActiveWindow.SelectedSheets.PrintOut [B]From:=1, To:=1[/B], Copies:=1

Koyu renkli alan yazdırmak istediğiniz sayfayı belirtir. Diğer kodlarda 2, 3, 4 şeklinde değiştirmelisiniz.