Tek Sayfa Yazdırma Makrosu

[ormann]

Aşağıdaki makroda yazdırma adedini seçip,yazdır dediğimde sadece birinci sayfanın yazdırılmasını nasıl sağlayabiliriz.? (alt alta 5 adet sayfa varsa sadece 1 sayfayı yazdırmak için)


Private Sub CommandButton1_Click()
Dim SayfaAdedi As Integer

SayfaAdedi = Application.InputBox("LÜTFEN KOPYA SAYISINI GİRİNİZ ?", "KOPYA SAYISI GİRİŞİ !!!!", 1, Type:=1)
If Not SayfaAdedi = 0 Then Sheets("a5").PrintOut Copies:=SayfaAdedi
End Sub

 

[halit3]

Aşağıdaki makroda yazdırma adedini seçip,yazdır dediğimde sadece birinci sayfanın yazdırılmasını nasıl sağlayabiliriz.? (alt alta 5 adet sayfa varsa sadece 1 sayfayı yazdırmak için)


Private Sub CommandButton1_Click()
Dim SayfaAdedi As Integer

SayfaAdedi = Application.InputBox("LÜTFEN KOPYA SAYISINI GİRİNİZ ?", "KOPYA SAYISI GİRİŞİ !!!!", 1, Type:=1)
If Not SayfaAdedi = 0 Then Sheets("a5").PrintOut Copies:=SayfaAdedi
End Sub

Bunu makro kayıtet yöntemiyle sizde bulabilirsiniz.

Sheets("a5").PrintOut From:=1, To:=1, Copies:=SayfaAdedi

 

[ormann]

çok teşekkür ederim