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

Katılım
21 Kasım 2018
Mesajlar
153
Excel Vers. ve Dili
Excel 2013 , Türkçe
İ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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
Print isimli bir dosya oluşturun.
Kod:
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.
Kod:
Sub Calis()
    Yol = "C:\"
    Application.Run "'" + Yol & "Print.XLsm" + "'" + "!Yazdir"
End Sub
 
Katılım
21 Kasım 2018
Mesajlar
153
Excel Vers. ve Dili
Excel 2013 , Türkçe
Print isimli bir dosya oluşturun.
Kod:
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.
Kod:
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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
Aşağıdaki şekilde deneyin
Kod:
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
 
Katılım
21 Kasım 2018
Mesajlar
153
Excel Vers. ve Dili
Excel 2013 , Türkçe
Aşağıdaki şekilde deneyin
Kod:
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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
Yada Print edilecek Sayfayı yine kod yardımı ile ilgili dosyaya kopyalayıp daha sonra silebilirsiniz.
 
Üst