Yazdırma alanı

[efem67]

Sub SIMDI_YAZDIR()

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("HAKEMSONUC").PrintOut From:=1, To:=1, Copies:=SayfaAdedi
End Sub


ANCAK SAYFANIN YANLIZCA;
A1 İLE AS50 arasında yazdırılmasını istiyorum.
AS50 den sonra gizlenmiş alanlar var..

Şuan Yazdır dediğimde sayfayı sığdırmıyor sağ tarafta boşluk bırakıyor.

Yardımlarınız için şimdiden teşekkürler..

 

[programer]

Sub SIMDI_YAZDIR()

Dim SayfaAdedi As Integer

SayfaAdedi = Application.InputBox("LÜTFEN KOPYA SAYISINI GİRİNİZ ?", "KOPYA SAYISI GİRİŞİ !!!!", 1, Type:=1)
Range("A1:AT35").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AT$35"
If Not SayfaAdedi = 0 Then Sheets("HAKEMSONUC").PrintOut From:=1, To:=1, Copies:=SayfaAdedi
End Sub

 

[efem67]

HOCAM Öncelikle teşekkürler;
Yazdırma işi tamam ama sayfaya sığdırmıyor..
Önceden belirttiğim üzere AT35 DEN Sonra gizli sütünlar var ,
sanki onlarıda boş gibi baskı yapıyor sayfada bu sefer küçük kalıyor..

 

[programer]

Sub SIMDI_YAZDIR()

Dim SayfaAdedi As Integer

SayfaAdedi = Application.InputBox("LÜTFEN KOPYA SAYISINI GİRİNİZ ?", "KOPYA SAYISI GİRİŞİ !!!!", 1, Type:=1)
Range("A1:AT35").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AT$35"
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1
If Not SayfaAdedi = 0 Then Sheets("HAKEMSONUC").PrintOut From:=1, To:=1, Copies:=SayfaAdedi
End Sub