Gizli sayfayı yazdır

[Ahmet Sami]

Arkadaşlar elimde buradan aldığım aşağıdaki gibi bir kod var AKTAR isimli Gizli sayfayı yazdırıyorum. Ancak ben AKTAR isimli gizli sayfanın sadece 2. sayfasını yazdırmak istiyorum. Kodu ona göre uyarlayabilir misiniz. Aksi takdirde AKTAR isimli Gizli sayfanın hem 1. hem de 2. sayfasını yazdırıyor.

Option Explicit
Sub gizli_sayfa_yazdır_Aktar
Dim asi As Worksheet
Set asi = Sheets("AKTAR")
Application.ScreenUpdating = False
asi.Visible = True
asi.PrintOut
asi.Visible = False
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı"
End Sub

 

[kulomer46]

Merhaba,

asi.PrintOut yerine asi.PrintOut From:=2, To:=2 kodunu denerseniz çalışabilir.

 

[Ahmet Sami]

Ömer bey çok teşekkür ederim. Sağolun

 

[kulomer46]

Ömer bey çok teşekkür ederim. Sağolun

Selamlar...