Print Alanını Hücreye Yazdırmak

[baydeniro]

Merhaba arkadaşlar. Bir excel çalışma sayfasında tanımlanmış PRINT alanlarını sayfa sayfa hücreye yazdırmak mümkün müdür ?
Örneğin Sayfa - 1 ; "B1-D14" , Sayfa - 2 : "B15-D28" gibi. Örnek dosya ekte.

 

[halit3]

Kodun belki kısaltılmışı vardır bu biraz uzun oldu ama genede iş görür

Sub yazdırmaalanı()
Dim numItems As Integer
Dim i As Integer
numItems = ActiveSheet.HPageBreaks.Count
deg = ActiveSheet.PageSetup.PrintArea
son = Split(deg, ":")
SütunAdı1 = Split(deg, "$")(1)
SütunAdı2 = Split(son(1), "$")(1)
For i = 1 To numItems + 1
On Error Resume Next
deg1 = ActiveSheet.HPageBreaks.Item(i).Location.Row
deg2 = ActiveSheet.HPageBreaks.Item(i).Location.Row - 1
If i = 1 Then
deg3 = SütunAdı1 & "1" & ":" & SütunAdı2 & deg2
ElseIf i = numItems + 1 Then
deg3 = SütunAdı1 & son3 & ":" & Replace(son(1), "$", "")
Else
deg3 = SütunAdı1 & son3 & ":" & SütunAdı2 & deg2
End If
Cells(i, "g").Value = deg3
Cells(i, "f").Value = i
son3 = deg1
Next i
MsgBox "işlem tamam"
End Sub

 

[baydeniro]

Sizi yaratan Allaha kurban olayım sayın halit3. Allah sizden razı olsun, aklınıza emeğinize sağlık. O kadar işimize yarayacak kiş bu kod anlatamam. Sağlıcakla kalın.

 

[halit3]

Sizi yaratan Allaha kurban olayım sayın halit3. Allah sizden razı olsun, aklınıza emeğinize sağlık. O kadar işimize yarayacak kiş bu kod anlatamam. Sağlıcakla kalın.

Teşekkürler iyi çalışmalar