باز کردن فایل PDF و رفتن به یک صفحه خاص با استفاده از کد html

Printable View

سلام
با استفاده از کدهای زیر در وب بروزر یک فایل در مسیر وارده شده اجرا میشود . آیا در کدهای فوق امکان درج صفحه هم میباشد که صفحه مربوطه بعنوان صفحه جاری نمایش داده شود ؟



Private Sub Form_Current()

    Dim sHTMLFile             As String    'Path to the HTML File to be rendered in the Webbrowser Control

    Dim sPDFFile              As String    'Path to each PDF

    Dim sHTML                 As String    'HTML for the HTML File to be rendered in the Webbrowser Control



    sHTMLFile = Application.CurrentProject.Path & "\PDF.html"

    sPDFFile = Application.CurrentProject.Path & "\z.pdf"



    

    sHTML = "<!DOCTYPE html>" & vbCrLf

    sHTML = sHTML & "<!-- saved from url=(0016)http://localhost -->" & vbCrLf

    sHTML = sHTML & "<html>" & vbCrLf

    sHTML = sHTML & "   <head>" & vbCrLf

    sHTML = sHTML & "       <meta charset=""UTF-8"">" & vbCrLf

    sHTML = sHTML & "       <meta http-equiv=""X-UA-Compatible"" content=""IE=edge"" />" & vbCrLf

    sHTML = sHTML & "       <title>Inline Documents</title>" & vbCrLf

    sHTML = sHTML & "       <style>html, body, object {height: 100%; width: 100%; }</style>" & vbCrLf

    sHTML = sHTML & "   </head>" & vbCrLf

    sHTML = sHTML & "   <body>" & vbCrLf

    sHTML = sHTML & "       <object data=""" & sPDFFile & "#view=fitH,100&scrollbar=1&toolbar=0&statusbar=0&  navpanes=0"" type=""application/pdf"">" & vbCrLf

    sHTML = sHTML & "           <p>It appears you don't have Adobe Reader or PDF support in this web browser. <a href=""" & sPDFFile & """>Click here to download the PDF</a>.</p>" & vbCrLf

    sHTML = sHTML & "           <embed src=""" & sPDFFile & "#view=fitH,100&scrollbar=1&toolbar=0&statusbar=0&  navpanes=0"" type=""application/pdf""/>" & vbCrLf

    sHTML = sHTML & "       </object>" & vbCrLf

    sHTML = sHTML & "   </body>" & vbCrLf

    sHTML = sHTML & "</html>"

    Debug.Print sHTML

    

'    'Dynamic HTML, no I/O!  ***********DOES NOT WORK****************

'    With Me.WB_Document.Object.Document

'        .Open

'        .Write sHTML

'        .Close

'    End With



    Call OverwriteTxt(sHTMLFile, sHTML)



    Me.WB_Document.ControlSource = "=""" & sHTMLFile & """"

    On Error Resume Next

    Me.WB_Document.Object.Refresh

End Sub

شنبه 06 مرداد 1403, 14:19 عصر
eb_1345

نقل قول: باز کردن فایل PDF و رفتن به یک صفحه خاص با استفاده از کد html
سلام
لزومی به درج این همه کد اضافه نیست ، شماره صفحه مربوطه رو بصورت page= Numberpage# در جلوی مسیر فایل Pdf اضافه کن!
بجای Numberpage شماره صفحه مورد نظر رو جایگزین کن!
```
Dim sPDFFile As String

sPDFFile = Application.CurrentProject.Path & "\z.pdF#‎‎‎page=4"

Me.WB_Document.ControlSource = "=""" & sPDFFile & """"
```
یک شنبه 07 مرداد 1403, 22:48 عصر
atf1379

نقل قول: باز کردن فایل PDF و رفتن به یک صفحه خاص با استفاده از کد html
نقل قول:
نوشته شده توسط eb_1345

سلام
لزومی به درج این همه کد اضافه نیست ، شماره صفحه مربوطه رو بصورت page= Numberpage# در جلوی مسیر فایل Pdf اضافه کن!
بجای Numberpage شماره صفحه مورد نظر رو جایگزین کن!

Dim sPDFFile As String
sPDFFile = Application.CurrentProject.Path & "\z.pdF#‎‎‎‎page=4"
Me.WB_Document.ControlSource = "=""" & sPDFFile & """"
سلام
سپاسگزارم
یک شنبه 27 آبان 1403, 12:11 عصر
atf1379

نقل قول: باز کردن فایل PDF و رفتن به یک صفحه خاص با استفاده از کد html

با سلام
آیا راهی وجود دارد که در رویداد mouse wheel شماره صفحه جاری فایل pdf چند صفحه ای در یک تکست باکس درج شود . مثلاً فرض می کنیم یک فایل pdf چند صفحه ای رو از طریق وب بروزر باز می کنیم حالا میخواهیم وقتی دکمه وسط موس را بر روی صفحات pdf به سمت بالا و پائین میچرخانیم شماره صفحه جاری در یک تکست باکس درج شود