Exceldeki putondan açık olan word sayfasını yazdırmak.

[unur]

Arkadaşlar kolay gelsin.
Yapmak istediğim; Excel sayfasına eklediğim bir butonla, açık olan ve dosya yolunu yazdığım Word sayfasının çıktısını nasıl alabilirim. Örn dosya yolu :C:\dene.doc

Teşekkürler.
Kusura bakmayın başlıkda butonu puton olarak yazmışım,düzeltemedim.

 

[Muzaffer Ali]

Öncelikle "Microsoft Word (VersiyonNo) Object Library" kütüphanesini referans olarak Excel dosyanıza eklemelisiniz. Sonra aşağıdaki kodlar işinizi görecektir.

Private Sub WordYazdir()
    Dim DocApp As New Word.Application
    Dim Doc As Word.Document
    Set Doc = DocApp.Documents.Open("C:\dene.doc")
    Doc.PrintOut
    Doc.Close
    DocApp.Quit
End Sub

 

[unur]

Teşekkürler Dalgalıkur. Kodlardan fazla anlamam ama anladığım kadarıyla; Word dosyasını açıp yazdırıp kapatıyor.Word dosyası açık olduğunu kabul edersek sadece o dosyanın çıktısını alacağımızı düşünürsek kodları nasıl sadeleştirebiliriz.
Teşekkürler.

 

[Muzaffer Ali]

Kodları aşağıdaki gibi değiştirirseniz dosyanızın açık olması sorun olmayacak ve ileti de almayacaksınız.

Private Sub WordYazdir()
    Dim DocApp As New Word.Application
    Dim Doc As Word.Document
    Set Doc = DocApp.Documents.Open(Filename:="C:\dene.doc", ReadOnly:=True)
    Doc.PrintOut
    Doc.Close
    DocApp.Quit
End Sub

 

[unur]

Öncelikle "Microsoft Word (VersiyonNo) Object Library" kütüphanesini referans olarak Excel dosyanıza eklemelisiniz. Sonra aşağıdaki kodlar işinizi görecektir.

[[/CODE]

Teşekkürler Dalgalıkur.
Kusura bakmayın bilmemek bu kadar kötü; Bu Object Library nereden nasıl ekleyeceğim.
Teşekkürler.

 

[Muzaffer Ali]

Excel dosyanızın kod editörü bölümünde Tools/Referances tıklatın açıklan pencerede "Microsoft Word (SizinVersiyonNo) Object Library" bulup yanındaki onay kutusunu işaretleyin.OK tıklatıp pencereyi kapatın.

 

[unur]

Teşekkürler dalgalıkur.Elinize sağlık.