köprü ve makro ile yazdırma

[mahircinar01]

herkese selamlar;
şöyle bir şey yapmakistiyorum. bir tane köprüye makro atayıp yazdırma işlemi yapmak istiyorum. ama olmuyor. köprü çalışıyor ama makro çalışmıyor. bununla ilgili küçük bir örnek ekledim ilgilenirseniz sevinirim.

 

[Mahir64]

MErhaba,
Hangi sayfa yazdırılacak?
Mevcut sayfa mı? Köprü kurduğunuz sayfamı?

 

[mahircinar01]

köprüye (makroya) tıkladığım zaman anasayfaya gitmesi ve sayfa1 yazdırmak istiyorum

 

[Mahir64]

MErhaba,

Köprüyü kadırın ve yazdır makrosunu atayınız.

Sub yazdır()
If MsgBox("Sayfa1'i Yazdırmak istiyormusunuz?", vbYesNo, "M A H İ R") = vbNo Then Exit Sub
Sheets("Sayfa1").PageSetup.PrintArea = ""
Sheets("Sayfa1").PrintOut , 1
Sheets("Sayfa1").PageSetup.PrintArea = ""
[COLOR=Red]Sheets("anasayfa").Select[/COLOR]
End Sub

Makronuza kırmızı ile belirtilen işareti ekleyiniz.