çalışma sayfalarını şartlı yazdırma hk.

[ugurakin]

merhaba, aşağıdaki kodla çalışma kitabının yazdırılmasını engelliyoruz.

[vb:1:6fc4faf907]Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub[/vb:1:6fc4faf907]

peki, çalışma kitabında istediğimiz sayfayı yazdırıp istemediğimizi yazdıramayabiliyor muyuz? bununla ilgili bir kod mevcut mudur?

 

[isakarakus]

şu an aklıma gelen pratik çözüm,,

eğer aktif sayfa isimi Sheet1 veya Sheet 3 ise yazdırma...

[vb:1:34fc6a36e9]Private Sub Workbook_BeforePrint(Cancel As Boolean)

If ActiveSheet.Name = "Sheet1" Then Cancel = True
If ActiveSheet.Name = "Sheet3" Then Cancel = True

End Sub[/vb:1:34fc6a36e9]

 

[Haluk]

Merhaba;

Aşağıdaki mesaj 2 sayfa uzunluğundadır.

Ã?zetle; çoklu sayfa seçimi yapıldığında yazdırılması istenmeyen sayfalar da yukarıdaki gibi bir kodla yazdırılabilindiğinden bahsedilmektedir.

Buna karşılık, konuyla ilgili çözümler de yer almaktadır.

http://www.mrexcel.com/board2/viewtopic.php?t=94237

 

[ugurakin]

teşekkürler...