• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

link üzerinden yazdırma

  • Konbuyu başlatan Konbuyu başlatan EErkut
  • Başlangıç tarihi Başlangıç tarihi
E

EErkut

Katılım
12 Mayıs 2006
Mesajlar
125
Excel Vers. ve Dili
Microsoft 365 Tr
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.
 
Dosya açılmadan yazdırılamaz....

.
 
Açıldıktan sonra kapanabilir. Excele geri dönerse sorun olmaz.
 
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.
C++: 
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.
 
Son düzenleme:
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
 
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.
 
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 www.excel.web.tr
 
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.

C++: 
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
 
Merhaba Korhan Bey,
Kod çalıştırdığımda herhagi bir şey olmuyor.

Korhan Ayhan' Alıntı:
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.

C++: 
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
Genişletmek için tıkla ...
 
Bir de link önermiştim. Oradaki kodları deneyiniz.
 
Hangi öneriden sonuç aldığınızı belirtirseniz daha sonra benzer talebi olanlarda faydalanabilirler.
 
EErkut' Alıntı:
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.
Genişletmek için tıkla ...

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.

C++: 
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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst