Otomatik Yazdır, Farklı Kaydet

[korpixy]

Selamun Aleyküm Sayın Hocalarım. Benim hazırlamakta olduğum çalışmada çok önemli bir yere sahip aslında en önemlisi olan bir sorun ile karşı karşıyayım. Benim isteğim excelde bir butona belirli bir yerdeki Word Dosyasını açmasını, yazdırmasını ve belirleyeceğim bir yere kendisi yeni bir klasör açarak farklı kaydetmesini istiyorum. Açtığı Yeni klasörede isim olarak sırayla sayı vermesini istiyorum. Umarım fazla abartılı bir şey değildir. Bu iş olursa herşey harika olacak benim için şimdiden herkese teşekkür ederim

 

[exceluygulamalari]

Merhabalar,

Aradığınız buna benzer bir işlem mi acaba?
https://exceluygulamalari.wordpress.com/2016/03/08/mailings-ile-ayri-dosyalar-olusturma/

Umarım faydalı bulursunuz,
Saygılarımla.

 

[korpixy]

Hocam tam olarak istediğim bu değil. Bir buton olsun excelde Ben o butona bastığımda benim belirlediğim Word Dosyası açılsın Açılan Word Dosyasını Yazdırsın ve ve aynı word dosyasını benim belirlediğim bölümde yeni klasör açarak kaydetsin istiyorum. Sanırım bu mümkün değil farklı bir şey düşünmem gerekecek

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Otomatik_Yazdır_Farklı_Kaydet()
    Dim Yol As String, Uygulama As Object, Dosya As Object
    
    Yol = "C:\Deneme.docx"

    On Error Resume Next
    Set Uygulama = GetObject(, "Word.Application")
    
    If Uygulama Is Nothing Then
        Set Uygulama = CreateObject("Word.Application")
    End If
    On Error GoTo 0
    
    Uygulama.Documents.Open Yol
    Uygulama.Visible = True
    Uygulama.DisplayAlerts = 0
    Uygulama.ActiveDocument.PrintOut

    Set Dosya_Sistemi = CreateObject("Scripting.FileSystemObject")
    Klasör = "C:\Yedek\"
    If Not Dosya_Sistemi.FolderExists(Klasör) Then
        Dosya_Sistemi.CreateFolder (Klasör)
    End If
    Uygulama.ActiveDocument.SaveAs Klasör & "Yedek_Deneme.docx"
    Uygulama.Quit
    
    Set Uygulama = Nothing
    Set Dosya_Sistemi = Nothing
End Sub