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.
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