Yazdır Kodunda Sayfa Sınırını Belirleyebilmek

[mustafa7691]

Sn Dostlar defalarca yardınıza başvurduğum gibi hiçte boş döndürmediniz.sayenizde çok şey öğrendim hepinize teşekkürler.ama takdir edersinizki taşıma suyla değirmen bir yere kadar dönüyor.Yine mümkün olursa daha önce sizlerden aldığım bir yazdır koduna sayfa sınırlarını ekleyebilmek mümkün olurmu diye bilgilerinize müracaat ediyorum.saygılarımla

Private Sub CommandButton1_Click()
Unload Me
If TextBox1 = "" Then
MsgBox "Kopya Sayısını Giriniz...!!!"
YAZDIR.Show
Else
ActiveWindow.SelectedSheets.PrintOut Copies:=TextBox1.Value
Unload Me
End If
End Sub

 

[Recep İpek]

ActiveWindow.SelectedSheets.PrintOut Copies:=TextBox1.Value

satırını

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=TextBox1.Value,Collate:=True

olarak değiştirin.

 

[mustafa7691]

Sn ripek önerinizi uyguladım ancak şu anki formda bir sorunla karşılaşmamış olmama rağmen affınıza sığınarak anladığım bu koddada herhangi bir sınır belirtilmiyor sanırım.yani ben sayfanın mesela A1 ile K33 arasını istiyorum bunun dışındaki bölüm yada ek bir sayfa yazmasın istiyorum .Bunu değişik bölümlerde kullanıyorum ve sayfalarda bazen gözden kaçan uzatmalar yada ufak tefek işaretler ek sayfa basımına yada istemediğim bölümlerin basımına yol açıyor.sadece tam anlamadığım için bu notu ekledim ilgi ve bilginize teşekkürler saygılarımla

 

[Recep İpek]

Bende sonradan farkına vardım.Sınırdan kastınız sayfa alanı ise

ActiveSheet.PageSetup.PrintArea = "a1:k33"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=TextBox1.Value,Collate:=True

kodlarını kullanabilirsiniz.

 

[Seyit Tiken]

Kodu kendinize uyarlayınız.

Sub Düğme1_Tıklat()
[a1:g30].PrintOut
End Sub

 

[mustafa7691]

Çok teşekkürler hepinize ilgi ve bilginize saygılarımla