seyyit tiken arkadaşa teşekkür ederim sorunumu bir noktada çözdüm lakin 2, sayfayı gizlemek orayı göstermemek istediğimde yazdırma işlemim olmuyor 2. sayfam gizli iken nasıl yapabilirim
:kafa:
Bundan kolay ne var. Öncekilerini silin, bu kodu yapıştırın.
Sub Aç()
Sheets("Sayfa2").Visible = True
Sheets("Sayfa2").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.