Üst Bilgide Altı Çizili Metin Yazdırma

[dragon44760]

Arkadaşlar açıklama ekte bulunan dosyada mevcut yardımsı olursanız sevinirim.

 

[asi_kral]

Üst bilgiye ne yazılacak anlamadım.

 

[Korhan Ayhan]

Merhaba,

Tarihi biçimlendirerek üst bilgide göstermeniz için makro kullanmak gerekir. Forumda buna benzer örnekler vardır diye hatırlıyorum. Arama yaparsanız ulaşabilirsiniz.

Arama için anahtar kelimeleriniz;

LeftHeader / PageSetup

 

[dragon44760]

Tarih falan yazdırmada sorun yok benim sıkıntım "LeftHeader"da "HİZMETE ÖZEL"in altını çizgili yapmak ve diğerlerinin altının çizgili olmamasını sağlamak. Örneğin "LeftHeader"da aşağıdaki gibi bir yazı yazdırmak istiyorum.

HİZMETE ÖZEL

XLS.: 1200- -12/

 

[asi_kral]

Tarih falan yazdırmada sorun yok benim sıkıntım "LeftHeader"da "HİZMETE ÖZEL"in altını çizgili yapmak ve diğerlerinin altının çizgili olmamasını sağlamak. Örneğin "LeftHeader"da aşağıdaki gibi bir yazı yazdırmak istiyorum.

HİZMETE ÖZEL

XLS.: 1200- -12/

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub üstbilgi_sol_1967()
'Konu       :   Üst Bilgiye Özel
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
ActiveSheet.PageSetup.LeftHeader = "&""Arial,Normal""&UHizmete Özel" & Chr(10) & "" _
& Chr(10) & "&UXLS.: 1200-                               " & Format(Now, "yy") & "/"
End Sub

Dosyanız Ekte.

 

[dragon44760]

Çok teşekkürler asi_kral_1967 emeğine yüreğine sağlık. Uzun zaman cevap gelmeyince Makro kaydetten altı çizili metnin nasıl olacağını öğrendim ve kendimce aşağıdaki kodu toparladım. İşyerinde de denemiştim ama yapamamıştım. Demekki kafa boş olacak...

Private Sub Workbook_Open()
Dim i As Integer
For i = 1 To Sheets.Count
If Worksheets(i).Name <> "ANA" Then
With Worksheets(i).PageSetup
    .LeftHeader = "&""Arial,Normal""&11&UHİZMETE ÖZEL" & Chr(10) & "" & Chr(10) & "&UXLS.:1200-                 -" & Format(Now, "yy") & "/"
End With
End If
Next i
End Sub

 

[asi_kral]

Çok teşekkürler asi_kral_1967 emeğine yüreğine sağlık. Uzun zaman cevap gelmeyince Makro kaydetten altı çizili metnin nasıl olacağını öğrendim ve kendimce aşağıdaki kodu toparladım. İşyerinde de denemiştim ama yapamamıştım. Demekki kafa boş olacak...

Private Sub Workbook_Open()
Dim i As Integer
For i = 1 To Sheets.Count
If Worksheets(i).Name <> "ANA" Then
With Worksheets(i).PageSetup
    .LeftHeader = "&""Arial,Normal""&11&UHİZMETE ÖZEL" & Chr(10) & "" & Chr(10) & "&UXLS.:1200-                 -" & Format(Now, "yy") & "/"
End With
End If
Next i
End Sub

Çözüm üretmeniz güzel
Kolay Gelsin.

 

[Seyit Tiken]

Bence en pratiği sayfa üzerinde yapmaktır, sonuç aynı kapıya gidiyor. Resim tekniğiyle yapılmış örnek dosyayı inceleyiniz.

 

[dragon44760]

Sn.Seyit Tiken resimle derken nasıl yapılıyor biraz bilgi verir misiniz_?

 

[Seyit Tiken]

Herhangi bir hücrede yazılmış yazı metninin resim olarak(Shift Tuşu basılı tutarak) kopyalanıp Paint'te yapıştırılır > Diğer Adımları Baskı Önizlemede Takip Ederek Yapabilirsiniz.

 

[dragon44760]

Teşekkürler bilgi için...