Yazdırma a4 e sığdırmak

[yanginci34]

Merhaba arkadaşlar, sizlerden ricam şu. Çalışma sayfasında yazdır butonuna bastığımda a4 kağıdına sığacak şekilde tüm yazdırılan sayfaların b sütununun genişletilmesi ve tablo kağıda tam yayılmasını istiyorum.Şimdiden teşekkürler.
Vba şifresi: 21101979
Ekli dosyayı görüntüle yazdırma.xlsm

 

[yanginci34]

Günaydın konu gunceldir.

 

[yanginci34]

Arkadaşlar kusura bakmayın biraz sıkıştırıyor oluyorum ama bu bana çok acil lazım yardımcı olacak arkadaşlara şimdiden teşekkürler

 

[Asri]

Tablonuz zaten çok geniş. Ayrıca B sütünunu genişletmeye gerek yok ki.

Dosya/ Yazdır dan en altta tüm klonları tek sayfaya sığdır ı seçip dener misiniz?

 

[yanginci34]

Sayın Asri ilginiz için teşekkürler işte o dediğinizi ben makro olarak yazdır butonuna nasıl eklerim çünkü asıl dosyada bir sürü sayfa açılıyor bu dediğinizi hepsi için teker teker uygulamak yerine tek butonlar yazdırır iken yapmak istiyorum

 

[Asri]

Sayın Asri ilginiz için teşekkürler işte o dediğinizi ben makro olarak yazdır butonuna nasıl eklerim çünkü asıl dosyada bir sürü sayfa açılıyor bu dediğinizi hepsi için teker teker uygulamak yerine tek butonlar yazdırır iken yapmak istiyorum

Tüm sayfaları kolon bazında sayfaya sığdır yapcaktır.
Sadece tek sayfa için çalışmasını istiyorsanız.
Koddaki kırmızı bölümleri siliniz.

Sub sayfaya_sigdir()
[COLOR=Red] For i = 1 To Sheets.Count
    Sheets(i).Select[/COLOR]
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.7)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 0
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
[COLOR=red]Next i[/COLOR]
End Sub