ön görünüş olabilirmi

[mehteroglu1]

herkese selamlar
ben yaptığım sayfanın yazdırma alanlarını belirledim her çizelge kendine göre yazdırma alanı var yaklaşık 1 sayfada 100 adet çizelgem var ve bunları makroyla belirlediğim şekilde yazdırıyor ben bunlara makro aracılığı ile her çizelgenin ayrtı ayrı ön görünüşünü vermek istiyorum bu mümkün mü acaba saygılarımla

 

[mehteroglu1]

bu sorunu çözen varmı acaba

sayın arkadaşlar bu sorn çözüle bilirmi acaba

 

[Levent Menteşoğlu]

Sorunuz anlaşılmıyor, biraz daha detay verebilirmisiniz.

 

[mehteroglu1]

ön görünüş

sayın hocalarım sayfam kilitli ve hiç bir araç çubuğu görünmüyor açılışa o makroyu koydum ve ben sayfamda yaptığım çizelgeyi atadığım bir tuş ile ön görünüş yapmak istiyorum tabi mümkünü varsa ama çizelgem tek sayfada 1 den fazla

 

[Levent Menteşoğlu]

Öngörünüşten kastınız sayfa özinleme ise aşağıdaki kodu kullanabilirsiniz.

ActiveSheet.PrintPreview

 

[mehteroglu1]

ön görünüş

hocam bu oldu ama benim istediğim makroyla belirli hücreleri seçerek yazdırıyorum bu yazdırdığım hücrelerin ön görünüşü lazım bana

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveSheet.PrintPreview

 

[mehteroglu1]

sadece benim seçtiklerimi göstersin

hocam benim yazdırma alanım b4586 buna göre ön görünüş olacak

 

[Zeki Gürsoy]

Eğer alan tanımlayacaksanız, örnekteki gibi yapabilirsiniz.

Private Sub CommandButton1_Click()

    Unload Me
    
    ActiveSheet.PageSetup.PrintArea = ActiveWorkbook.Names("" & ComboBox1.Text)
    ActiveSheet.PrintPreview
    
End Sub

Private Sub CommandButton2_Click()

    ActiveSheet.PageSetup.PrintArea = ""
    ListBox1.Clear
    UserForm_Initialize
    
End Sub

Private Sub UserForm_Initialize()

    With ActiveWorkbook
    
        son = .Names.Count
        
        For t = 1 To son
        
            ListBox1.AddItem .Names(t).Name
            ComboBox1.AddItem .Names(t).Name
            ComboBox1.Value = ComboBox1.List(0)
            
        Next
        
    End With
End Sub

 

[mehteroglu1]

TeŞekkÜrler

Sayin Hocam Çok TeŞekkÜrler İstedİĞİm Gİbİ Oldu Hepİnİz SaĞolun