Tek Sayfa Yazdırma

[praxumit]

Selamlar . Resimde görüldüğü gibi çizgiler nedeni ile yazdırma alanı oluşuyor.
bunu sadece hücrede yazıldıysa o sayfa yazılsın gibi bi şey yapılabilir mi ?

 

[PLİNT]

Selamlar . Resimde görüldüğü gibi çizgiler nedeni ile yazdırma alanı oluşuyor.
bunu sadece hücrede yazıldıysa o sayfa yazılsın gibi bi şey yapılabilir mi ?

Aşağıdaki kodu;
"Thisworkbook"(Bu Çalışma Ktabı) kod sayfasına eklerseniz, ilgili sayfanın "B" sütununa göre veri girildikçe yazdırma alanı belirlenecektir.

 [SIZE="2"]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target.Columns, Columns(2)) Is Nothing Then Exit Sub
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$" & ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
End Sub[/SIZE]

Veya yazdırılacak veri girilen sayfalara tek tek ("B" sütununa veri eklendikçe ayarlanacaktır.):

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target.Columns, Columns(2)) Is Nothing Then Exit Sub
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$" & Cells(Rows.Count, 2).End(xlUp).Row
End Sub