Sayfa Yazdırma Hk.

[sogentr]

Merhaba arkadaşlar,
Benim sorum şöyle olacak "Sayfa1" de çalışırken "Sayfa2" veya "Sayfa3"ü yazdırmak istiyorum. Şimdiden yardımcı olan arkadaşlara teşekkürler.

 

[YUSUF44]

Makro kaydet yöntemiyle kendiniz yapabilirsiniz.

 

[sogentr]

Onu nasıl yapacağım işte yardımcı olursanız sevinirim

 

[YUSUF44]

https://www.google.com.tr/search?q=makro+kaydetme+site:www.excel.web.tr/&rlz=1C1LENN_enTR462TR462&espv=2&biw=1294&bih=683&tbm=isch&source=lnms&sa=X&ei=7LpgVImGOIrLaKKRgLgI&ved=0CAcQ_AUoAg#tbm=isch&q=makro+kaydetme

Makro kaydetme işlevi, başladıktan sonra durduruncaya kadar yaptığınız tüm işlemleri kaydeder ve makro kodlarına dönüştürür.

Excel 2007'de sol alt tarafta Hazır yazısının sağında bir düğme vardır. http://excelmakrolar.files.wordpress.com/2010/12/11.jpg
O düğmeye basarak ya da GEliştirici Sekmesinde Makro kaydeti çalıştırarak makro kaydetmeye başlayabilirsiniz.
Bu yöntemi kullanarak Sayfa1'deyken Sayfa2'ye geçip Sayfayı Yazdırdım, sonra Sayfa3'e geçerek sayfayı yazdırdım.
Alt+F11 ile kod sayfasına geçip, module1'in kodlarına baktığımda aşağıdaki kodların oluştuğunu gördüm:

Sub Makro2()
'
' Makro2 Makro
'

'
    Sheets("Sayfa2").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("Sayfa3").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub