makro düzenleme

[veycell29]

alttaki kotta 1.sayfadan 2 tane yazdırıyor 2. sayfadan 1 tane yazdırıyor ben burda 2. sayfa yazdırmasını silmek istiyorum ama bir yanlışlık oluyor başka birşey çıkarıyor. yardımcı olursanız sevinirim sağolun.

' yazdır Makro

'



'

    ActiveWindow.SmallScroll Down:=27

    Range("A40:AD100").Select

    Range("B40").Activate

    ActiveSheet.PageSetup.PrintArea = "$A$40:$AD$100"

    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _

        IgnorePrintAreas:=False

    ActiveWindow.SmallScroll Down:=72

    Range("A107:AD166").Select

    ActiveSheet.PageSetup.PrintArea = "$A$107:$AD$166"

    ActiveWindow.SmallScroll Down:=33

    Range("C141").Select

    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _

        :=True, IgnorePrintAreas:=False

    ActiveWindow.SmallScroll Down:=-135

    Range("M8:R8").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("M9:R10").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("M1:R2").Select

    ActiveCell.FormulaR1C1 = ""

    Range("M13:R13").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("M17:R17").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("M18:R18").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("M19:R19").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("M26:R28").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("M32:R32").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("M29:R31").Select

    ActiveCell.FormulaR1C1 = ""

    Range("T29").Select

    ActiveWorkbook.Save

End Sub

 

[muygun]

Merhaba;

Basit olarak;

Sub yazdır()
Application.ScreenUpdating = False
Sheets("Sayfa1").PageSetup.PrintArea = "A1:H35"
Sheets("Sayfa1").PrintOut Copies:=1
Application.ScreenUpdating = True
End Sub

Kodlarını kullanarak istenilen sayfanın istenilen alanını istenilen kopya sayısı ile yazdırabilirsiniz.
İyi çalışmalar.

 

[veycell29]

biliyorum ben daha önce hazırlanan kodu düzenlemek istiyorum. bu kod üzerinden 2. sayfa çıktısını kaldırmak istiyorum