Otomatik Yazdırma Kodunda Sorun Var

[farisakboga]

Forum yöneticilerinden Korhan Bey vaktinde aşağıdaki gibi bir kod ile bana yardımcı olmuştu. Şimdi aynı kod sorun veriyor. Masaüstünde olmayan dosyaları yazdırmıyor. "path not found" hatası veriyor. Bir de yazıcı seçimi özelliği ekleyebilir miyiz acaba?


Sub yaz()
On Error GoTo 10
Dim yol As String
yol = Application.ThisWorkbook.Path
ChDir yol

adet = InputBox("Kaç farklı sayfa hazırlansın?")
kopya = InputBox("Her sayfa kaç kere yazdırılsın?")
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

For i = 1 To adet
Calculate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "\Toplama.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveWindow.SelectedSheets.PrintOut Copies:=kopya, Collate:=True, _
IgnorePrintAreas:=False
Next
Exit Sub
10:
MsgBox "Lütfen sayısal veriler kullanınız!" & Chr(10) & Chr(10) & "İşlem tamamlanmadı"
End Sub

 

[YUSUF44]

Sorunun çözümü için örnek dosya eklemenizi tavsiye ederim. Mümkünse hata veren dosyanızı yükleyin.

Ayrıca yazıcı seçiminden kastınız nedir? Nasıl bir çözüm istiyorsunuz?

 

[farisakboga]

Sorunun çözümü için örnek dosya eklemenizi tavsiye ederim. Mümkünse hata veren dosyanızı yükleyin.

Ayrıca yazıcı seçiminden kastınız nedir? Nasıl bir çözüm istiyorsunuz?

Örnek dosya ektedir. Yazıcı seçiminden kastım yazdır dediğimde kaç çıktı almak istediğimi soruyor. Aynı şekilde hangi yazıcı ile yazacağımı da sorabilir mi?

 

[YUSUF44]

Ekli dosyayı inceleyiniz. Bu vesileyle ben de userformda yazıcı seçimiyle ilgili çalışma yaptım.

 

[YUSUF44]

Bu arada bende bahsettiğiniz "path not found" hatasını vermedi.

 

[Korhan Ayhan]

Kodu anımsayamadım.

Yol olarak makroyu kullandığınız Excel dosyasının bulunduğu adres kullanılmış. Bu kod aktif Excel sayfasını belirtilen konuma "Toplama.pdf" adıyla PDF formatında kayıt ediyor sonrada aktif sayfayı yazdırıyor. Bahsettiğiniz hata ile ilgili bir bağlantı kuramadım.

Masaüstünde olmayan dosyaları yazdırmıyor. "path not found" hatası veriyor.

Kod zaten dosya yazdırmıyor. Akif Excel sayfasını yazdırıyor.

 

[farisakboga]

Ekli dosyayı inceleyiniz. Bu vesileyle ben de userformda yazıcı seçimiyle ilgili çalışma yaptım.

Dosyayı indirdim. Yazıcı seçimi kısmı tam istediğim gibi olmuş ancak tamama bastığımda "Run-time error 1004" hatası veriyor. Path not found hatası ise dosya masaüstünde değil de herhangi bir klasördeyken oluşuyor. Masaüstünde sorun yok.

 

[farisakboga]

Kodu anımsayamadım.

Yol olarak makroyu kullandığınız Excel dosyasının bulunduğu adres kullanılmış. Bu kod aktif Excel sayfasını belirtilen konuma "Toplama.pdf" adıyla PDF formatında kayıt ediyor sonrada aktif sayfayı yazdırıyor. Bahsettiğiniz hata ile ilgili bir bağlantı kuramadım.



Kod zaten dosya yazdırmıyor. Akif Excel sayfasını yazdırıyor.

Dosya derken maüstünde bulunan excel dosyasını kastettim. Onu açıp ilgili sayfayı yazdır dediğimde sorun olmuyor. Ancak bir klasörde iken path not found hatası veriyor.

 

[farisakboga]

Kodu anımsayamadım.

Ben siz yardımcı olmuştunuz diye hatırlıyorum. Asri Bey de olabilir.

 

[Korhan Ayhan]

Sanırım bu başlıktan bahsediyorsunuz.

pdf olarak kaydetme

Ekteki dosyada öğrencilerim için hazırladığım toplama işlemi şablonu var. F9 tuşu ile alıştırmaları yenileyip yazıcıya gönderiyorum. bu da vakit alıyor. alıştırma sayfasını otomatik yenileyip farklı sayfalar halinde 100 defa çoğaltacak ve hepsini bir pdf dosyasına yazdıracak makro yazılabilir...

www.excel.web.tr

 

[farisakboga]

Sanırım bu başlıktan bahsediyorsunuz.

pdf olarak kaydetme

Ekteki dosyada öğrencilerim için hazırladığım toplama işlemi şablonu var. F9 tuşu ile alıştırmaları yenileyip yazıcıya gönderiyorum. bu da vakit alıyor. alıştırma sayfasını otomatik yenileyip farklı sayfalar halinde 100 defa çoğaltacak ve hepsini bir pdf dosyasına yazdıracak makro yazılabilir...

www.excel.web.tr

Evet. Yanlış hatırlıyormuşum. YUSUF44'müş. Teşekkür ederim kendisine.

 

[Korhan Ayhan]

İlgili klasöre erişim izniniz olmayabilir. Klasördeki Türkçe karakter sorunu olabilir. Klasör separatörünüz "\" değilse hata verebilir.

Profilinizde ki sürüm bilgisinde sadece 2019 yazıyor. Bu bilgi tek başına hiçbir şey ifade etmez.

Bizlerin profilinde ki gibi detaylı bilgiler yazmalısınız.

 

[YUSUF44]

Dosyayı indirdim. Yazıcı seçimi kısmı tam istediğim gibi olmuş ancak tamama bastığımda "Run-time error 1004" hatası veriyor. Path not found hatası ise dosya masaüstünde değil de herhangi bir klasördeyken oluşuyor. Masaüstünde sorun yok.

Deneme yaptığımda sorunsuz bir şekilde çalışmıştı. İnternette bu hatayla ilgili bir çok farklı sorun ve çözüm bulunuyor, sizinki nedir bilmiyorum.

Path hatasını anlamadım. Belki ağdaki bir klasörde bu hata oluşuyordur. Çünkü ben dosyayı indirilenler klasöründe kullandım, sıkıntı olmadı.

 

[farisakboga]

YUSUF44 ve Korhan Ayhan, ilgilendiğiniz için teşekkür ederim. Sorun sistemimle ilgili olabilir.