bir excel sayfasında farklı yazdırma alanları belirleme

[spacebar]

arkadaşlar merhaba. bir dilekce programı yapmak istiyorum. yaklaşık elli dilekçe örneği olacak.bu dilekçeleri köprü vasıtasıyla yazdırmak istiyorum. ama 50 adet dilekçe örneğini ayrı sayfalarda açtığım zaman bu belgenin boyutu çok fazla oluyor.bu yüzden tek sayfada yapmam gerekiyor.

sorunum şu : aynı sayfa içerisinde farklı yazdırma alanları belirlenebiliyor mu belirlenebiliyorsa nasıl yardımcı olabilirmisiniz. teşekkürler...

 

[rahmi06]

Makro ile yapabilirsin.
Alttaki makro sadece bir dilekçe için, bunu çağaltabilirsin.

Sub Makro2()
'
' Makro2 Makro
' Makro Rahmi tarafından 29.06.2010 tarihinde kaydedildi.
'

'
    ActiveSheet.PageSetup.PrintArea = ""
'1. Dilekçenin hücrelerinin bulunduğu yerleri seç    
Range("A13:C21").Select
    ActiveSheet.PageSetup.PrintArea = "$A$13:$C$21"
    Range("A13").Select
End Sub

 

[ilkersan]

merhaba,
aşağıdaki kodu inceler misiniz? Secilen alanın çıktısını alıyor.

Sub PrintRpt3()
With Worksheets("Sayfa1").PageSetup
.CenterHorizontally = True
.PrintArea = "$A$3:$F$15"
.PrintTitleRows = ("$A$1:$A$2")
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Worksheets("Sayfa1").PrintOut
End Sub

 

[spacebar]

çok işime yaradı . yardımlarınız için teşekkür ederim.

 

[ayrıca88]

merhaba,
aşağıdaki kodu inceler misiniz? Secilen alanın çıktısını alıyor.

Sub PrintRpt3()
With Worksheets("Sayfa1").PageSetup
.CenterHorizontally = True
.PrintArea = "$A$3:$F$15"
.PrintTitleRows = ("$A$1:$A$2")
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Worksheets("Sayfa1").PrintOut
End Sub

Aynı sorunu bende yaşıyorum. Farlı sayfalada seçtiğim yazdırma alanını tek bir sayfada yazmak istiyorum ama bir türlü başaramadım.
Kod vermişsiniz ama bu konuda çok iyi olmadığım için nasıl yapıldığını da anlayamadım. Sizlere zahmet yardımcı olurmusunuz? Başka bir yöntem var mıdır, yada resimli bir anlatımı?
Şİmdiden teşekkürler...