Soru Bir Excel Dosyasında Açık Olmayan Excel Sayfasını Yazdırma

[ekremmk]

İyi geceler.
1 adlı excel dosyasıyla çalışırken çalışmada görüntü kirliliğini engellemek için bir kaç farklı excel e bilgi aktarımı yapıyorum. Burada bir sıkıntı yok. Ancak o aktardığım verilerle oluşan 2 adlı excel dosyasında 1. sayfayı yazdırmak istiyorum. 2 adlı excel dosyasını açmadan. Bu mümkün müdür?
Ve 1 adlı excel dosyasında yaptığım değişiklikler ancak 2 adlı excel dosyasını açıp güncelle dediğimde mi güncel hale gelir yoksa 2 adlı excel dosyasını açmadan kendini güncellemesi mümkün müdür?
Umarım anlatabilmişimdir.
Şimdiden teşekkür ederim ^_^

 

[hamitcan]

Print isimli bir dosya oluşturun.

Sub Yazdir()
    Workbooks("Print.xlsm").Activate
    ActiveSheet.PrintPreview
'    ActiveSheet.PrintOut
End Sub

Aşağıdaki kodu bir çalışma kitabına ekleyip çalıştırın.

Sub Calis()
    Yol = "C:\"
    Application.Run "'" + Yol & "Print.XLsm" + "'" + "!Yazdir"
End Sub

 

[ekremmk]

Print isimli bir dosya oluşturun.

Sub Yazdir()
    Workbooks("Print.xlsm").Activate
    ActiveSheet.PrintPreview
'    ActiveSheet.PrintOut
End Sub

Aşağıdaki kodu bir çalışma kitabına ekleyip çalıştırın.

Sub Calis()
    Yol = "C:\"
    Application.Run "'" + Yol & "Print.XLsm" + "'" + "!Yazdir"
End Sub

İlgin için teşekkür ederim hocam ancak pek beceremedim sanırım
hocam buraya print dosyasını
buraya da örnek dosyayı attım. Yapılması için uğraştığım şey örnek dosyada userform'a basınca gelen seçeneklerden dosya seç combobox'una bastığımda print dosyasını seçebilmem ve rapor al kısmına basınca orayı yazdırabilmem.

 

[hamitcan]

Aşağıdaki şekilde deneyin

Private Sub btnYazdir_Click()
    Yol = "c:\"
    Workbooks.Open Yol & ComboBox6.Text
    Unload Me
    Workbooks(ComboBox6.Text).Activate
    ActiveWorkbook.PrintOut'    ActiveWorkbook.PrintPreview
    Application.EnableEvents = False
    Workbooks(ComboBox6.Text).Close
    Application.EnableEvents = True
End Sub

Private Sub UserForm_Initialize()
    ComboBox6.AddItem "Print2.xlsm"
    ComboBox6.AddItem "Print3.xlsm"
End Sub

 

[ekremmk]

Aşağıdaki şekilde deneyin

Private Sub btnYazdir_Click()
    Yol = "c:\"
    Workbooks.Open Yol & ComboBox6.Text
    Unload Me
    Workbooks(ComboBox6.Text).Activate
    ActiveWorkbook.PrintOut'    ActiveWorkbook.PrintPreview
    Application.EnableEvents = False
    Workbooks(ComboBox6.Text).Close
    Application.EnableEvents = True
End Sub

Private Sub UserForm_Initialize()
    ComboBox6.AddItem "Print2.xlsm"
    ComboBox6.AddItem "Print3.xlsm"
End Sub

Hocam illaki print dosyalarının açılması gerekir mi aceba sanki ÖRNEK dosyasının içinde bir sayfaymış gibi yazdırmamız mümkün müdür?

 

[hamitcan]

Yada Print edilecek Sayfayı yine kod yardımı ile ilgili dosyaya kopyalayıp daha sonra silebilirsiniz.