Yazdırma alanı 2'nci sayfaya taşarsa uyarsın

[orrhankaya]

SpinButton ile satır yüksekliğini arttırıp azaltıyorum.
Arttırırken yazdırma alanı 2'nci sayfaya taşıp taşmadığını sık sık kontrol ediyorum. Ben kontrol etmiyeyim, bir uyarı alayım istiyorum.
İlgileneceklere şimdiden teşekkürler.

Private Sub SpinButton1_Change()
Rows("6:74").RowHeight = SpinButton1.Value * 0.5
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub SpinButton1_Change()
Application.ScreenUpdating = False
Rows("6:74").RowHeight = SpinButton1.Value * 0.5
ActiveWindow.View = 2
say = ActiveSheet.HPageBreaks.Count + 1
ActiveWindow.View = 1
If say > 1 Then MsgBox "2.sayfaya geçilmiştir."
End Sub

 

[orrhankaya]

Leventm, teşekkür ederim.
kullandım, olmuş. ama yavaş çalışıyor.

 

[Levent Menteşoğlu]

Bende gayet hızlı çalışıyor, sebebi konusun açıkçası fikrim yok.

 

[orrhankaya]

Bende gayet hızlı çalışıyor, sebebi konusun açıkçası fikrim yok.

Yeni bir çalışma kitabında gayet hızlı, fakat benim proğrama o kodları ekleyince yavaşlıyor. Sanırım benim proğramda bir durum var. Filtreli satırlardan dolayı olabilir.

 

[teknik]

Yapılan çalışmanın bir dosyasını ekleyebilirmisiniz

 

[orrhankaya]

SinifList ve NotCizelgesi sayfalarında SpinButton Kullandım.
Siniflist Sayfasına yeni kodu ekledim. NotCizelgesi Sayfasına ise yeni kodu eklemedim. Eklenen kod kod yavaş çalışıyor.
Dosyayı gönderiyorum