link üzerinden yazdırma

[EErkut]

Merhabalar,

A1 hücresine 1 yazdığımda belirlenmiş sabit bir url deki pdf dosyasını yazdıracak koda ihtiyacım var.
örnek olarak a1 hücresine 1 yazdığımızda www.abc.com/pdf/1.pdf dosyasını açmadan yazıcıdan çıktı alabilelim.

Yardımlarınız için teşekkür ederim.

 

[Haluk]

Dosya açılmadan yazdırılamaz....

.

 

[EErkut]

Açıldıktan sonra kapanabilir. Excele geri dönerse sorun olmaz.

 

[palhex]

Lütfen bu sayfayı inceleyiniz...

Sayfada pdf dosyasını açmadan (daha doğrusu açıp-yazdırıp-kendisi kapatıyor diyelim) yazdırma olayı, bu komut satırı ile çözülebiliyormuş sanırım.

AcroRd32.exe /t filename.pdf printername drivername portname

Dipnot: URL'den yazdırma kısmını atlamışım. Başlığı tekrar okuyunca gördüm. Yine de bu yorum kalsın. Aratmada ihtiyacı olan birisi denk gelebilir. (Dikkatsizliğimden ötürü kusura bakmayınız.)

İyi forumlar.

 

[palhex]

Prof derecede vba bilmediğim için hazır kodları kendime göre derleyip; önce pdf i örnek bir siteden indirtip ("C:\MyDownloads\" klasörüne), oradan da yazdırma işlemini (varsayılan yazıcıya gönderiyor) yaptırdım. A1 hücresine 1 yazıp entera bastığınızda adımlar başlar. Dosyayı açınca örnek pdf linkini vs görebilirsiniz. Hazırladığım dosya ektedir umarım işinize yarar.

Ustalar, daha pratik bir yolu varsa ben de öğrenmek isterim.

İyi forumlar.

İndirme Linki

 

[EErkut]

Merhabalar,
ilginize teşekkür ederim sayın palhex ancak buradaki işlem a1 e yazdığımız url deki dosya ismi yani 1 yazınca 1.pdf dosyasını yazdıracak 2 yazınca 2.pdf isimli dosyayı yazdıracak.

 

[Korhan Ayhan]

Linki inceleyiniz.

VBA İLE WEB SAYFASI YAZDIRMA

Merhaba Excel vba ile istediğimiz web sayfasını açıp açılan web sayfasını yazdırabileceğimiz bir makro varmıdır acaba ?

www.excel.web.tr

 

[Korhan Ayhan]

Yine benzer başka bir alternatif..

A1 hücresine yazdığınız dosya adına göre işlem yapar. Kod içindeki "url" bilgisini kendinize göre düzenlersiniz.

Option Explicit

Sub PrintPDFFromWebPage()
    Dim ie As Object
    Dim url As String
    
    url = "http://www.example.com/" & Range("A1") & ".pdf"
    
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = False
    
    ie.Navigate url
    
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    
    ie.ExecWB 6, 2
    
    ie.Quit
    Set ie = Nothing
End Sub

 

[EErkut]

Merhaba Korhan Bey,
Kod çalıştırdığımda herhagi bir şey olmuyor.

Yine benzer başka bir alternatif..

A1 hücresine yazdığınız dosya adına göre işlem yapar. Kod içindeki "url" bilgisini kendinize göre düzenlersiniz.

Option Explicit

Sub PrintPDFFromWebPage()
    Dim ie As Object
    Dim url As String
   
    url = "http://www.example.com/" & Range("A1") & ".pdf"
   
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = False
   
    ie.Navigate url
   
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
   
    ie.ExecWB 6, 2
   
    ie.Quit
    Set ie = Nothing
End Sub

 

[Korhan Ayhan]

Bir de link önermiştim. Oradaki kodları deneyiniz.

 

[EErkut]

Merhabalar,
ilgili kodları kendime göre uyarladım. Hücreden değişken tanımlayarak dosya adını ve yolunu aldırdım. Sorunsuz çalışıyor.
Destekleriniz için teşekkür ederim.

Bir de link önermiştim. Oradaki kodları deneyiniz.

 

[Korhan Ayhan]

Hangi öneriden sonuç aldığınızı belirtirseniz daha sonra benzer talebi olanlarda faydalanabilirler.

 

[EErkut]

Hangi öneriden sonuç aldığınızı belirtirseniz daha sonra benzer talebi olanlarda faydalanabilirler.

7 Numaralı mesajdaki "VBA İLE WEB SAYFASI YAZDIRMA" başlıklı konu referans alınmıştır.

 

[palhex]

Merhabalar,
ilginize teşekkür ederim sayın palhex ancak buradaki işlem a1 e yazdığımız url deki dosya ismi yani 1 yazınca 1.pdf dosyasını yazdıracak 2 yazınca 2.pdf isimli dosyayı yazdıracak.

Geç yanıtladığım için kusura bakmayın. İstediğiniz şekilde revize ettim. Kodun bir kısmı aşağıda mevcut.
Select Case x şeklinde dilediğiniz kadar artırabilirsiniz.
Eğer a1 hücresi değil de başka bir hücredeki değere göre işlem yaptıracaksanız Target(1, 1).AddressLocal = "$A$1" bölümünü kendinize göre ayarlayabilirsiniz.

On Local Error Resume Next
Secim = Target(1, 1).Value

If Target(1, 1).AddressLocal = "$A$1" Then 'sadece target ile local geri dönüş adresi eşleştiğinde çalışsın
    Select Case Secim
    Case 1
        MyFile = "https://www.odgyapi.com/upload/urunler/unique-tower-139460.pdf"
        strPth = "C:\MyDownloads\"
        strFile = "unique-tower-139460.pdf"
        Call TryMe
        Call PrintSpecificPDF
    Case 2
        MyFile = "https://www.spo.org.tr/resimler/ekler/9a7431dec1c6c33_ek.pdf"
        strPth = "C:\MyDownloads\"
        strFile = "9a7431dec1c6c33_ek.pdf"
        Call TryMe
        Call PrintSpecificPDF
    Case 3
        MyFile = "https://www.asobcev.com.tr/dosyalar/MTYwMTNlN2E1ZGYxMDU.pdf"
        strPth = "C:\MyDownloads\"
        strFile = "MTYwMTNlN2E1ZGYxMDU.pdf"
        Call TryMe
        Call PrintSpecificPDF
    Case 4
        'bu şekilde gidecek ekledikçe case' i bir arttıracaksınız
    End Select
Else
    Exit Sub
End If

Dosyayı ekliyorum. İndirme Linki