• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

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

gicimi

Yeni Üye
Katılım
18 Haz 2018
Mesajlar
64
En iyi yanıt
0
Puanları
18
Yaş
36
Konum
Ankara
Ad Soyad
Hüseyin Yılmaz
Office Vers.
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