2 Sayfa Çıktı Alıyor

[starmetin]

Selam arkadaşlar ,
senet macrosu güzel bir şekilde çalışıyor , ancak şöyle bir durum oluyor 2 sayfa olarak döküm alınıyor 2.ci sayfa boş olarak çıkıyor. Çalıştığım alan 1 sayfa 2.ci sayfa çıktısını boşta olsa çıkmasını istemiyorum Yazdırılma alanı belirle değidim halde çıktı macro çalıştığında yine 2 sayfa olarak çıktı alıyor bunu nasıl engelliyebilirim sadece 1.ci sayfanın çıktısının alınmasını istiyorum ilgelene bilecek arkadaşlara şimdiden çok teşekkürler.

İlgili macro bu şekildedir
------------------------
Sub Düğme19_Tıklat()
Sheets("Senet").PageSetup.PrintArea = "$B$1:$S$32"
Sheets("Senet").PrintOut Copies:=1, Collate:=True
[n4].Value = [n4].Value + 1
End Sub

 

[Erdem Akdemir]

Selam arkadaşlar ,
senet macrosu güzel bir şekilde çalışıyor , ancak şöyle bir durum oluyor 2 sayfa olarak döküm alınıyor 2.ci sayfa boş olarak çıkıyor. Çalıştığım alan 1 sayfa 2.ci sayfa çıktısını boşta olsa çıkmasını istemiyorum Yazdırılma alanı belirle değidim halde çıktı macro çalıştığında yine 2 sayfa olarak çıktı alıyor bunu nasıl engelliyebilirim sadece 1.ci sayfanın çıktısının alınmasını istiyorum ilgelene bilecek arkadaşlara şimdiden çok teşekkürler.

İlgili macro bu şekildedir
------------------------
Sub Düğme19_Tıklat()
Sheets("Senet").PageSetup.PrintArea = "$B$1:$S$32"
Sheets("Senet").PrintOut Copies:=1, Collate:=True
[n4].Value = [n4].Value + 1
End Sub

Sub Düğme19_Tıklat()
Sheets("Senet").PageSetup.PrintArea = "$B$1:$S$32"
Sheets("Senet").PrintOut From:=1, To:=1, Copies:=1, Collate:=True
[n4].Value = [n4].Value + 1
end sub

şeklinde değiştirin

 

[starmetin]

çok teşekkürler bilgi ve paylaşımlarınız için tam istediğim gibi oldu...
Hürmetler...