• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

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

Katılım
21 Kasım 2018
Mesajlar
50
Beğeniler
2
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,105
Beğeniler
15
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
 
Katılım
21 Kasım 2018
Mesajlar
50
Beğeniler
2
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.
 
Katılım
1 Temmuz 2004
Mesajlar
7,105
Beğeniler
15
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
 
Katılım
21 Kasım 2018
Mesajlar
50
Beğeniler
2
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?
 
Katılım
1 Temmuz 2004
Mesajlar
7,105
Beğeniler
15
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