Bir değeri başka sayfadaki butonla yazdırma

[covertech]

:yardim:

_______
Private Sub Düğme5_Tıklat()
If MsgBox("Dostum, Yazdırcan mı? Yoksa yanlışlıkla mı bastın butona? Bak Evet dersen Yazıcıya göndercem ona göre...", vbYesNo) = vbNo Then Exit Sub
ActiveSheet.PrintOut From:=1, to:=1, Collate=True, Copies=1
End Sub
_______

Normalde aktif olan sayfayı yazdırmada kulllandığımız kod bu. Fakat Sayfa1,Sayfa2,Sayfa3 adlı 3 sayfamız var diyelim. Sayfa1 de bulunan YAZDIR butonuna atanacak makro kodla Sayfa2 ve Sayfa3 adlı sayfaların sadece 1. sayfaları çıktı alınacak, yazıcıya gönderilecek. Yardım edebilecek var mı?

NOT: Sadece 1. sayfalarını çıkartma olasılığımız düşükse, yapacak birşey yok deyip; en azından bir sayfadan farklı 2 sayfadaki verilerin çıktıya gönderilmesini sağlamayı bilmemiz yeterli olacaktır.

 

[covertech]

Bi şekilde...

:???:


ActiveSheet.PrintOut From:=1, to:=1, Collate=True, Copies=1

Kısmı;

Sheets(Sayfa2, Sayfa3).Select.PrintOut From:=1, to:=1, Collate:=True, Copies:=1

Şeklinde olacakmış gibi ama yapamadım işte...

 

[Recep İpek]

Aşağıdaki kodları deneyebilirsiniz.

Private Sub Düğme5_Tıklat()
If MsgBox("Dostum, Yazdırcan mı? Yoksa yanlışlıkla mı bastın butona? Bak Evet dersen Yazıcıya göndercem ona göre...", vbYesNo) = vbNo Then Exit Sub
For i = 2 To 3
Sheets(i).Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Next i
End Sub

 

[covertech]

Aşağıdaki kodları deneyebilirsiniz.

Private Sub Düğme5_Tıklat()
If MsgBox("Dostum, Yazdırcan mı? Yoksa yanlışlıkla mı bastın butona? Bak Evet dersen Yazıcıya göndercem ona göre...", vbYesNo) = vbNo Then Exit Sub
For i = 2 To 3
Sheets(i).Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Next i
End Sub

:icelim:
Çok Teşekkür Ederim. İhtiyacı olan arkadaşlar da değerlendirsinler. Çok Güzel Çalışıyor. Ellerine Sağlık...