Yazdırma sorunu hk.

[kemal turan]

Merhaba,
Mağaza ön muhasebe proğramımı ustadlarımızın yardımı ile 1 yıllık süreçte sürekli geliştiryordum.
En son Sn Korhan beyin takvim çalışmasını ekledim.
Sebep o mudur bilyorum.
Proğramımdaki yazdırma makroları çalışmıyor.
Örnek olarak aşağıda bir yazdırma kodu var.Kodumuzu çalıştırdığımızda Senet Form sayfasına geliyor duruyor, herhangi bir hatada vermiyor.
Bunun gibi satışformu kodumuzda aynı şekilde formun olduğu sayfaya gelip duruyor.
Yeni bir makro kaydediyorum oda yanı şekilde çalışmıyor, ve hata vermiyor.
Bu hata neden olabilir.
Yardımlarınız rica ediyorum

Sub SENETYAZ1()
Sheets("SENET FORM").Select
Range("H2:Q28").Select
ActiveSheet.PageSetup.PrintArea = "$H$2:$Q$28"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("PLANLAMA").Select
Range("C21").Select
End Sub

 

[sametozyavuz]

kodda bir sorun yok görünüyor.
örnek dosya gönderiniz.

 

[kemal turan]

SN.Samet bey merhaba,
İlginiz için teşekkür ederim.
Dosya çok büyük ve detaylı.
Yani enterasan geliyor.Çalılşma kitabımda bütün makrolar, userformlar çalışıyor hiç bir sorun yok.
Bu makronunda sayfa seçim satırı çalışıyor ,alan seçimine geldiğinde duruyor ve hata vermiyor.?
Diğer bir tespitim de şu.
Yazdırılacak olan sayfaya geliyorum.
Kodu açıyorum.
Sheets("SENET FORM").Select kısmını pasif ediyorum.
maroyu çalıştır komutu verdiğimde kod çalışıyor ve yazdırma işlemini yapıyor.
Anlamadım..

 

[sametozyavuz]

sizin söylediğiniz şekli ile yaptım.
"SENET FORM" ve "PLANLAMA" sayfalarını oluşturdum.
yinede yazdırdı.

seçme kodunu resimdeki gibi değiştirseniz. belki düzelir.

 

[kemal turan]

Merhaba Samet bey,
Önerinizi yaptım.sayfa1.select diye hata verdi.
Sorunu yazdırılacak alanı planlama içerisinde alarak çözdüm.Yani sayfa seçme olayını iptal ettim.
İlginiz ve emeğiniz için teşekkür ederim.
Selametle kalın