Print area değerini değişkene atamak.

[Korhan Ayhan]

Selam arkadaşlar;

Aşağıdaki kodda print area değerini değişkene yani sayfada ne kadar veri varsa onların tamamını print areaya atamak için nasıl bir değişiklik yapmam gerekir.

Sub ALANSEÇ()
Range("A1:H1").Select (Bu bölüm sayfadaki başlık kısmı)
Range(Selection, Selection.End(xlDown)).Select

ActiveSheet.PageSetup.PrintArea = "$A$1:$H$102" (Bu bölümde veriler var. Ama değişken olması lazım.)
Range("B2").Select
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Bunu şu yüzden istiyorum. "RAPOR" adında bir sayfam var ve bu sayfaya belirli kriterlere göre veri aktarıyorum. Doğal olarak veri sayısı değişken olduğundan tüm sayfayı print area yapınca önizlemede bir sürü boş sayfa görünüyor. Bunu engellemek istiyorum.

İyi çalışmalar dilerim.

 

[Nazmi YAZICI]

Mrb,

Sub ALANSEÇ()
Dim say As Integer
say = WorksheetFunction.CountA(Range("H1:H65000"))
Range("A1:H1").Select '(Bu bölüm sayfadaki başlık kısmı)
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$" & say
Range("B2").Select
ActiveWindow.SelectedSheets.PrintPreview
End Sub

 

[Korhan Ayhan]

Teşekkür ederim. :hey:

 

[EMRE ÞAHAN]

selam, konu ile ilgili örnek bir dosyanız varmı?

 

[taner3106]

macrodaki degisken kismini tam cözemedim. textbox1 `de ve de textbox2 de hücre ismi versek(textbox1.value=a1;textbox2.value=b8 mesela) vede commandbuttona basinca a1:b8 araligini nasil yazdirma alani sectirebiliriz. tesekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları kullanabilirsiniz.

Private Sub CommandButton1_Click()
X = TextBox1
Y = TextBox2
ALAN = X & ":" & Y
ActiveSheet.PageSetup.PrintArea = ALAN
Range("A1").Select
Me.Hide
ActiveWindow.SelectedSheets.PrintPreview
Me.Show
End Sub

 

[taner3106]

tesekkür ederim COST CONTROL.

 

[YaqIshIqLI]

Print etmek istediğim sayfada 10 tane textbox mevcut ancak başka bir sayfadaki verilere göre bu textbox'lar görünür veya görünmez olabiliyor. Görünür en son textbox'ın da printarea'da yer alması için ne gibi bir çalışma yapabilirim?