Makroyla nasıl yazdırabilirim?

[Turan545]

Merhaba
Makroyla nasıl yazıcıya gönderebilirim.

 

[Recep İpek]

Bunun için Word'un mail merge işlevini rahatlıkla kullanabilirsiniz.

Sayı numaralarınıda bir kolona yazıp buradan word belgesine alabilirsiniz.

Detaylı bilgi için;

http://www.excel.web.tr/showthread.php?t=41655

http://www.excel.web.tr/showthread.php?t=23073

http://www.excel.web.tr/showthread.php?t=19432

 

[Turan545]

Bunun için Word'un mail merge işlevini rahatlıkla kullanabilirsiniz.

Sayı numaralarınıda bir kolona yazıp buradan word belgesine alabilirsiniz.

Detaylı bilgi için;

http://www.excel.web.tr/showthread.php?t=41655

http://www.excel.web.tr/showthread.php?t=23073

http://www.excel.web.tr/showthread.php?t=19432

Tşk ederim ilginden dolayıda baya bu işde yeniyimde dosya uzerınde ayarlamınız mumkunmu. Şimdiden Tşk ederim

 

[Recep İpek]

3. linkde gerekli adımlar mevcut.Bunları uyguladığınız takdirde kolaylıkla yapabilirsiniz.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu kullanabilirsiniz.

Sub YAZDIR()
    If [M8] = "" Then
    MsgBox "LÜTFEN SIRA NO GİRİNİZ !", vbCritical
    [M8].Select
    Exit Sub
    End If
    For X = [M8] To WorksheetFunction.Max(Sheets("Evrak Kayıt").[A:A])
    [M8] = X
    Set BUL = Sheets("Evrak Kayıt").[A:A].Find(X, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    ActiveSheet.PrintOut
    End If
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[1Al2Ver]

Sayın Cost_Control, merhaba, "yazı "isimli sayfada "yazdır" isimli buton var ve yeri sabit, öğrenmek adına sorularım ise Buton bu sayfaya ;
1) Nasıl monte edildi (yöntemi)
2) Bulunduğu yere nasıl sabitlendi
3) Verdiğiniz kod hangi sayfaya koplayanmalı ki "Yazı" sayfasındaki işlevini yapsın, teşekkür ederim, iyi bayramlar dilerim, saygılarımla

 

[Turan545]

3. linkde gerekli adımlar mevcut.Bunları uyguladığınız takdirde kolaylıkla yapabilirsiniz.

İlginize Tşk ederim. Deneyeceğim. Linkleri inceledim. Ustasına kolay gelir bu gibi işler. ama acemiye zordur. Bilen için basit olan bilmeyen için gerçekten zordur. Dosya üzerinde hazırlanmış olaydı benim için örnek teşkil ederdi ve bu konuları öğrenmemize daha fazla yardımcı olurdu.

 

[Korhan Ayhan]

Selamlar,

Sn. 1Al2Ver,

Bu butonu sayfa üzerine eklemek için excel üst barının altında bulunan (kaydet,yazdır...) butonlarının bulunduğu kısayol çubukları üzerinde sağ tıklayın. Karşınıza bir menü gelecektir. Bu menüden Denetim Araç Çubuğunu seçin. Otomatik olarak bu menü excel menülerine eklenecektir. Mouse yardımı ile dilediğiniz yere sürükle-bırak yaparak konumlandırabilirsiniz. Bu menü çubuğunda CommanButton (Komut Düğmesi) bulunmaktadır. Mouse ile üzerine tıklayıp sayfa üzerinde herhangibir yere mouse (sol tuşunu tıklarsanız otomatik eklenir.) yardımı ile butonu çizin. Daha sonra yine aynı menü çubuğunda bulunan üçgen şeklindeki seçeneği tıklayıp Tasarım Moduna geçip sayfa üzerindeki oluşturduğunuz butona çift tıklayın. Karşınıza kod sayfası açılacaktır. Aşağıdaki şekilde bir kod oluşacaktır.

Private Sub CommandButton1_Click()
 
End Sub

Bu kodu aşağıdaki şekilde düzenleyip kod oluşturma işlemini tamamlayın.

Private Sub CommandButton1_Click()
    If [M8] = "" Then
    MsgBox "LÜTFEN SIRA NO GİRİNİZ !", vbCritical
    [M8].Select
    Exit Sub
    End If
    For X = [M8] To WorksheetFunction.Max(Sheets("Evrak Kayıt").[A:A])
    [M8] = X
    Set BUL = Sheets("Evrak Kayıt").[A:A].Find(X, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    ActiveSheet.PrintOut
    End If
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

Tekrar excel sayfasına geri dönün ve üçgen şeklindeki seçeneği tekrar tıklayarak tasarım modundan çıkın. Artık sayfaya eklediğiniz butona kodu atamış olduk. Size sadece butona tıklamak kalıyor.

Umarım açıklayıcı olmuştur.

 

[Korhan Ayhan]

Selamlar,

Sn. Turan545,

Ekteki örnek dosyayı incelermisiniz.

 

[1Al2Ver]

Selamlar,

Sn. 1Al2Ver,

Sayın Cost_Control, hem bilgilendim hem de duygulandım, geç saat olmasına rağmen cevap verdiniz, sağolun, emeğinize, nezaketinize, paylaşımcı kişiliğinize saygılar sunuyorum, bu vesile ile bir kez daha sevdiklerinizle beraber iyi bayramlar diliyorum, herşey gönlünüzce olsun, teşekkür ederim.

 

[Turan545]

Sn. COST_CONTROL Selamlar Güzel olmuş. Elinize sağlık
Tekrar Teşekkur ederim.

 

[Korhan Ayhan]

Selamlar,

Sn. Turan545,

Belge olarak kaydetmeden direkt arka arkaya yazdırma şansımız olabilirmi?

Bu ifadenizden bir anlam çıkaramadım. Size önerdiğim kod M8 hücresine gireceğiniz değere göre döngü yöntemi ile yazdırma işlemini gerçekleştiriyor.

 

[Turan545]

Sn. COST_CONTROL Selamlar,
Teşekkur ederim. Eline sağlık. Güzel olmuş.

 

[angel67]

teşekürler işime yarayacak