Yazdır Makrosuna İlave

[nurluali]

Ekli Belgede Menü sayfasında Gerekli Açıklamayı Yapmaya Çalıştım. Üst Yazının 1.Sureti Yazdırıldıktan Sonra 2. Suretine Paraf İçin Seçtiğim İsmin Yazılması

 

[nurluali]

Tamamlama

E33 Hücresine Yeşil Dolgulu Yere Paraf İçin İsim Yazılacak

 

[asi_kral]

E33 Hücresine Yeşil Dolgulu Yere Paraf İçin İsim Yazılacak

Merhaba
Bu çalışma kitabındaki kodu silin ve bu kodu ekleyin.

Dim SY As Long
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim SR As Variant
If ActiveSheet.Name = "Menü" Then
If SY = 0 Then SY = 1
If SY = 1 Then
SY = SY + 1
ElseIf SY = 2 Then
Range("S22") = Range("AD7")
SY = 0
End If
End If
End Sub

 

[nurluali]

Teşekkürle Sayın Asi_Kral

Öncelikle Soruma Gösterdiğiniz İlgiye Teşekkür Ediyorum. Galiba Ben Derdimi Anlatamadım. Aynı Sayfadan (Menü) 2 Adet Yazdırmak İstiyorum. 1 Adet Yazdırdıktan Sonra 2. Suretine Paraf için İsim Yazdırmak ve 2. Sureti de yazdırdıktan sonra bir başka yazı için parafı silecek bir kod

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    Sheets("Menü").PrintOut
    Sheets("Menü").Range("E33") = Sheets("Menü").Range("AD7")
    Sheets("Menü").PrintOut
    Sheets("Menü").Range("E33") = ""
End Sub

. . .

 

[nurluali]

Teşekkür Emir Hüseyin ÇOBAN Bey

Kodu denemek için yazıcım arızalı olduğunda yarın iş yerinde deneyebileceğim. Umarım istediğim olmuştur. Vb kodları ile ilgim ancak GW basic'ten kalma birkaç kırıntıdan ibarettir. Saygılarımla...

 

[Emir Hüseyin Çoban]

Yazdirma projelerinde sanal pdf yazicisini kullaniyorum. Gayet basarilidir.

.

 

[nurluali]

Teşekkür

PDF Yazıcısını indirdim fakat yarım saatir Net faramework'ü yüklemeye çalışıyor zannedersem başarılı olamayacak. tekrar teşekkürler Emir Hüseyin ÇOBAN bey

 

[nurluali]

Teşekkür

Zor da olsa dopdf'yi yükledim ve böylece bir yazı için iki sayfa hazırlamaktan kurtulmuş oldum. Elinize sağlık. 2 satır da ben ilave ettim unvan için tam istediğim oldu Kod Aşağıdaki Gibi İlgilenen Diğer Arkadaşlar İçin;

Private Sub CommandButton1_Click()
Sheets("Menü").PrintOut
Sheets("Menü").Range("E33") = Sheets("Menü").Range("AD7")
Sheets("Menü").Range("E34") = Sheets("Menü").Range("AD8")
Sheets("Menü").PrintOut
Sheets("Menü").Range("E33") = ""
Sheets("Menü").Range("E34") = ""
End Sub