Pdf yazdırma

[cigerkarakaya]

F:\agustos2013\212-3683200_08_2013.pdf
F:\agustos2013\212-3800070_08_2013.pdf
F:\agustos2013\212-3800337_08_2013.pdf
F:\agustos2013\212-3800338_08_2013.pdf
F:\agustos2013\212-3800339_08_2013.pdf
F:\agustos2013\212-3800347_08_2013.pdf
F:\agustos2013\212-3801593_08_2013.pdf
F:\agustos2013\212-3801594_08_2013.pdf
F:\agustos2013\212-3801847_08_2013.pdf
F:\agustos2013\212-3801848_08_2013.pdf
F:\agustos2013\212-3801850_08_2013.pdf
F:\agustos2013\212-3802325_08_2013.pdf
F:\agustos2013\212-3802326_08_2013.pdf
F:\agustos2013\212-3802327_08_2013.pdf
F:\agustos2013\212-3802328_08_2013.pdf
F:\agustos2013\212-3802329_08_2013.pdf
F:\agustos2013\212-3802342_08_2013.pdf
F:\agustos2013\212-3802343_08_2013.pdf
F:\agustos2013\212-3802345_08_2013.pdf
F:\agustos2013\212-3802346_08_2013.pdf
F:\agustos2013\212-3802353_08_2013.pdf
F:\agustos2013\212-3802354_08_2013.pdf
F:\agustos2013\212-3802535_08_2013.pdf
F:\agustos2013\216-3600921_08_2013.pdf
F:\agustos2013\216-3601163_08_2013.pdf
F:\agustos2013\216-4683100_08_2013.pdf
F:\agustos2013\224-4410815_08_2013.pdf
F:\agustos2013\224-4410855_08_2013.pdf
F:\agustos2013\232-4610077_08_2013.pdf
F:\agustos2013\232-4612142_08_2013.pdf
F:\agustos2013\232-4614884_08_2013.pdf
F:\agustos2013\232-4618998_08_2013.pdf
F:\agustos2013\312-2202346_08_2013.pdf
F:\agustos2013\312-2202347_08_2013.pdf
F:\agustos2013\312-2202348_08_2013.pdf
F:\agustos2013\312-2202349_08_2013.pdf

a1 sütununda yukarıdaki gibi dosyanın yol verileri var. Bu verilerle her pdf dosyasını sadece birinci sayfasını yazdırma imkanı var mı?

 

[Murat OSMA]

Daha önce şu şekilde çözmüştük...

■ Referanslardan Adobe Acrobat XX.0 Type Library'i seçip OK tuşuna basın.
■ ToolBox'tan Adobe PDF Reader'î seçin ve UserForm'a ekleyin.
■ UserForm'un üzerine de 1 adet CommandButton ilave edin ve bu kodları UserForm'un kod kısmına yapıştırın;

Private Sub CommandButton1_Click()
    Dim yol As String, evn As Object
    Dim klasor As Object, pdfler As Object
    yol = "F:\agustos2013\"
    Set evn = CreateObject("scripting.filesystemobject")
    Set klasor = evn.getfolder(yol)
        For Each pdfler In klasor.Files
            If VBA.LCase(VBA.Right(pdfler.Path, 3)) = "pdf" Then
                With UserForm1.AcroPDF1
                    .LoadFile pdfler.Path
                    .gotoFirstPage
                    .printPages 1, 1
                    Application.Wait Now + TimeSerial(0, 0, 2)
                End With
            End If
        Next pdfler
    Set pdfler = Nothing: Set klasor = Nothing
    Set evn = Nothing: yol = vbNullString
End Sub

 

[cigerkarakaya]

Teşekkür ederim. İlk fırsatta deneyeceğim.

 

[cigerkarakaya]

Denedim fakat boş sayfa bastı.

 

[cigerkarakaya]

Tamamdır sorun çüzüldü.
Application.Wait Now + TimeSerial(0, 0, 2)
yerine
Application.Wait Now + TimeSerial(0, 0, 5)
yapınca düzeldi.

Fakat şimdi şöyle bir problemim var. Çalışma kitabını gizleyip sadece userformu göstermesi için ayarladım fakat şimdi geri dönemiyorum excele... tekrar nasıl açacağım exceli?

 

[cigerkarakaya]

pdf yazdırma adres seçimi

Yolu sabit değilde butona bastığımızda önce bizden konumu istese ve biz klasörün konumunu seçtikten sonra tarama işlemini gerçekleştirse? Bunu nasıl yapabiliriz?

 

[Murat OSMA]

Application.Visible = False kullandınız sanırım.
Herhangi bir olaya Application.Visible = True yazarak Excel sayfasına geri dönebilirsiniz.