Çalışma sayfalarını ayrı ayrı yazdırma

[shaqzilla]

Sitede üye olduğum sürece bir çok şey öğrendim bunun için herkese teşekkürler. Sormak istediğim soru ise örneğin çalışma sayfası 1'deki verileri sayfa 2'ye aktarıyorum. Sayfa 2 ise kendi içinde 2 sayfa, bu sayfalardan 1.sayfadan 2 adet çıktı ve 2.sayfadan 1 adet çıktı almak istiyorum. Bunu da makro ile yapmak istiyorum, sitede aradım ancak buna benzer kod bulamadım. Yardımcı olursanız sevinirim.

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub Yaz()

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

 

[shaqzilla]

Kodu denedim sağolun ancak bu seferde sayfalardan çıktı konusunda sıkıntı oluyor. Şöyle ki; sayfalar yan yana(2 ayrı sayfa) ve çıktı almak istediğim zaman hepsini tek sayfa olarak görüyor