Değişken tabloları yazdırma hakkında

[kakara]

Merhaba yapmak ıstedıgım 1 - 2 - 3 - 4 vs devam eden tabloların hepsı
ayrı ayrı tablolardır. 1 olan a4 sayfayasına yatay olarak yazdırılması gerekıyor
2 - 3 - 4 vs. son tabloya kadar aynı sekılde hepsı bırer a4 sayfasına sıgacak sekılde yazıdırılması gerekıyor ( bu tablolar 60 - 70 tane olabılır ) tablolardakı sutun ve satır sayısı degısebılır. acaba bunları yatay sekılde a4 kagıdına sıgracak sekılde yazdırma sansımız var mıdır ? ilginiz için şimdiden tesekkur ederım.

 

[Necdet]

Merhaba,

1. tablo yatay, diğerleri dikey mi yazdırılacak?
Açıklarsanız yardımcı olacak arkadaşlara yardım etmiş olursunuz.

 

[kakara]

@Necdet ustadım tum tablolar yatay şekilde olucak ben makroyu calıstırdıgım da sırasıyla yazdırmaya baslayacak a4 formatında

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?
Yazıcı olmadığı için deneme şansım yok.

Önce bir kaç tablo ile denerseniz daha uygun olur.

Sub Yaz()

    Dim Alan    As String, _
        c       As Range, _
        IlkAdr  As String
    
    With Range("A:A")
        Set c = .Find("G.NO", LookIn:=xlValues)
        If Not c Is Nothing Then
            IlkAdr = c.Address
            Do
                Alan = c.CurrentRegion.Address
                Range(Alan).Select
                ActiveSheet.PageSetup.PrintArea = Alan
                Application.PrintCommunication = False
                With ActiveSheet.PageSetup
                    .LeftMargin = Application.InchesToPoints(0.7)
                    .RightMargin = Application.InchesToPoints(0.7)
                    .TopMargin = Application.InchesToPoints(0.7)
                    .BottomMargin = Application.InchesToPoints(0.7)
                    .HeaderMargin = Application.InchesToPoints(0.3)
                    .FooterMargin = Application.InchesToPoints(0.3)
                    .PrintHeadings = False
                    .PrintGridlines = False
                    .PrintComments = xlPrintNoComments
                    .PrintQuality = 600
                    .CenterHorizontally = True
                    .CenterVertically = True
                    .Orientation = xlLandscape
                    .Draft = False
                    .PaperSize = xlPaperA4
                    .FirstPageNumber = xlAutomatic
                    .Order = xlDownThenOver
                    .BlackAndWhite = False
                    .Zoom = 100
                    .FitToPagesWide = 1
                    .FitToPagesTall = 1
                    .PrintErrors = xlPrintErrorsDisplayed
                    .OddAndEvenPagesHeaderFooter = False
                    .DifferentFirstPageHeaderFooter = False
                    .ScaleWithDocHeaderFooter = True
                    .AlignMarginsHeaderFooter = True
                End With
                Application.PrintCommunication = True
                ActiveSheet.PrintOut
                ActiveSheet.PageSetup.PrintArea = ""
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> IlkAdr
        End If
    End With
    
End Sub

 

[kakara]

@Necdet ustadım malesef kod calısmadı bug hatası vermıyor ama cıktı da alamıyorum

 

[Necdet]

@Necdet ustadım malesef kod calısmadı bug hatası vermıyor ama cıktı da alamıyorum

Her türlü hazırlığı yapıp, yaz demeyince boşuna uğraşmış oluyoruz tabi

ActiveSheet.PrintOut

demeyi unutmuşum.
Kodları yeniden yükledim, deneyiniz.

 

[kakara]

@Necdet ustadım kod calıstı ama yatay cıkarmıyor ve bır tablo bır sayfaya sıgmıyor malesef. şuan kı kodlamayla dıkıne ve bı tabloyu uc sayfayada cıkarıyor

 

[Necdet]

@Necdet ustadım kod calıstı ama yatay cıkarmıyor ve bır tablo bır sayfaya sıgmıyor malesef. şuan kı kodlamayla dıkıne ve bı tabloyu uc sayfayada cıkarıyor

Tek sayfaya sığdırı unutmuşum bu sefer de
Yeniledim kodları.

yazıcı olmayınca böyle oluyor, dener misiniz?

 

[kakara]

@Necdet ustadım yıne yatay degıl ve malesef yıne tek sayfaya sıgmıyor

 

[Necdet]

Merhaba,

Kodlarda yine oynadım, bende yazıcı olmadığı için pdf olarak döküyor. Oraya baktığımda ise görüntü gayet iyi.
Tekrar dener misiniz.

 

[kakara]

@Necdet ustadım teşekkürler kod tam istediğim gibi çalışıyor