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

ekremmk

Altın Üye
Katılım
21 Kasım 2018
Mesajlar
120
Beğeniler
10
Excel Vers. ve Dili
Excel 2013 , Türkçe
#1
İ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,195
Beğeniler
38
Excel Vers. ve Dili
Excel 2007 Türkçe
#2
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
 

ekremmk

Altın Üye
Katılım
21 Kasım 2018
Mesajlar
120
Beğeniler
10
Excel Vers. ve Dili
Excel 2013 , Türkçe
#3
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,195
Beğeniler
38
Excel Vers. ve Dili
Excel 2007 Türkçe
#4
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
 

ekremmk

Altın Üye
Katılım
21 Kasım 2018
Mesajlar
120
Beğeniler
10
Excel Vers. ve Dili
Excel 2013 , Türkçe
#5
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,195
Beğeniler
38
Excel Vers. ve Dili
Excel 2007 Türkçe
#6
Yada Print edilecek Sayfayı yine kod yardımı ile ilgili dosyaya kopyalayıp daha sonra silebilirsiniz.
 
Üst