Birinci sayfadan 2 ci sayfayı yazdırmak

[staskiran]

arkadaşlar 1 sayfada form yaptım veriler 2 sayfaya belli bir kalıba göre yer alıyor

2 sayfayı gizleyip 1 sayfa yazdırılmadan sadece 2. sayfayı yazdırmak istiyorum böyle bir yöntem varmı
yardımlarınız için teşekkür ederim

 

[Kemal Demir]

Öncelikle Forumumuza Hoş Geldiniz.
Küçük Bir Örnek Dosya Yollarmısınız.Forumdaki Arkadaslar Muhakkak yardım edeceklerdir.

 

[Seyit Tiken]

Bu kodu birinci sayfada bir butona bağlayınız.

Sheets("Sayfa2").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

 

[staskiran]

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:

 

[Seyit Tiken]

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

 

[staskiran]

Teşekkürler kardeş
kızmazsan bir ekleme daha yapabilirmiyim

gizli olan 2. sayfada istediğim bölümü yazdırma imkanım varmı?

örneğin a 15 ila a25 şinçi satır arasını yazdırma imkanım

ilgin için çok teşekkür ederim
senin için kolay olabilir ama bana zor be kardeş?

 

[mehmett]

Sn Seyit Tiken'in yazdığı kodlara aşağıdaki kırmızı satırı ekleyin.

Yazdırmak istediğiniz alanın A15:G25 olduğunu varsaydım.

[vb:1:89e6fb5b42]Sub Aç()
Sheets("Sayfa2").Visible = True
Sheets("Sayfa2").Select
ActiveSheet.PageSetup.PrintArea = "$A$15:$G$25"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub[/vb:1:89e6fb5b42]