- Katılım
- 4 Haziran 2005
- Mesajlar
- 2,745
- Excel Vers. ve Dili
- 2010-2016
Kolay gelsin.
Aşağıdaki kodlar ile pdf evrakları yazdırıyorum. Yalnız benim istediğim. burdaki kimlik numarası yerine en son inen veriyi yazdırma imkanı var mı? Şimdiden teşekkürler.
Sub PDF_Yazdir()
Application.DisplayAlerts = False
For sayi = Sayfa6.[B1] + 2 To Sayfa6.[C1] + 2
kimlik = Sayfa6.Cells(sayi, 1).Value
yol = Environ("USERPROFILE") & Application.PathSeparator & "Downloads"
prg = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe /p /h "
fname = yol & "\" & kimlik & "_belge.pdf"
Shell prg & fname, vbHide
Next
Application.OnTime Now + TimeValue("00:00:10"), "PDF_KAPAT"
End Sub
Aşağıdaki kodlar ile pdf evrakları yazdırıyorum. Yalnız benim istediğim. burdaki kimlik numarası yerine en son inen veriyi yazdırma imkanı var mı? Şimdiden teşekkürler.
Sub PDF_Yazdir()
Application.DisplayAlerts = False
For sayi = Sayfa6.[B1] + 2 To Sayfa6.[C1] + 2
kimlik = Sayfa6.Cells(sayi, 1).Value
yol = Environ("USERPROFILE") & Application.PathSeparator & "Downloads"
prg = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe /p /h "
fname = yol & "\" & kimlik & "_belge.pdf"
Shell prg & fname, vbHide
Next
Application.OnTime Now + TimeValue("00:00:10"), "PDF_KAPAT"
End Sub