Örnek Kod Excel Baskı Önizlemede Alt Üst Bilgiyi Kod ile Yazma

gicimi

Yeni Üye
Katılım
18 Haz 2018
Mesajlar
62
En iyi yanıt
0
Puanları
18
Yaş
33
Konum
Ankara
Ad Soyad
Hüseyin Yılmaz
Office Versiyon
Office 2016 Pro
Merhabalar,
Font, kalınlık, büyüklük belirleyerek sağ, sol , orta , üst alt kısımlara makro kodu ile istediğimiz veriyi yazdırabiliriz. Verileri sayfadan hücrelerden alabiliriz, kitap adından, sayfa isimlerinden alabiliriz. Bu örnekte isimlendirmeyi kod içerisinde yapıyoruz.

Kod:
Sub Sayfaya_Alt_Ust_Bilgi()
Dim sh As Worksheet

For Each sh In Worksheets
    sh.Activate
    
    With Application
        .SendKeys "{ENTER}", False
         sh.Range("d10") = "Www.ExcelTurkey.coM"
        .Dialogs(xlDialogPageSetup).Show _
             Arg1:="&L&""New Currier,Italic""&8SOL ÜST BAŞLIK" & _
                     "&C&""Arial,Bold""&10ORTA ÜST BAŞLIK" & _
                     "&R&""Tahoma,Bold""&12SAĞ ÜST BAŞLIK", _
             Arg2:="&L&""Times New Roman""&9SOL ALT BAŞLIK" & _
                       "&C&""Compact""&11ORTA ALT BAŞLIK" & _
                       "&R&""Lucida Console, Bold""&16SAĞ ALT BAŞLIK", _
             Arg3:=0.5, Arg4:=0.5, Arg5:=0.5, Arg6:=0.5, Arg12:=xlPaperLetter
    End With
    
Next
    ActiveSheet.PrintPreview
End Sub
 
Üst Alt