Mở file pdf bằng vba đến 1 trang định trước

[anhkt08]

Kính gửi các Anh Chị trong diễn đàn
Các Anh Chị giúp em viết code để mở file pdf và hiển thị đến 1 trang mà mình cho trước.
Ví dụ mở file pdf lên thì nó sẽ tự động hiển thị nội dung trang số 5
Em xin chân thành cảm ơn.

 

[kuldokk]

Kính gửi các Anh Chị trong diễn đàn
Các Anh Chị giúp em viết code để mở file pdf và hiển thị đến 1 trang mà mình cho trước.
Ví dụ mở file pdf lên thì nó sẽ tự động hiển thị nội dung trang số 5
Em xin chân thành cảm ơn.

Cách đơn giản nhất bạn có thể làm là:

sub test()
  Dim IE as object

  set IE = CreateObject("InternetExplorer.Application")  
  IE.Navigate [A1] & "#Page=" & [A2]
  IE.Visible = True
end sub

Với đường dẫn đến file pdf lưu ở ô A1, trang bạn muốn mở ở ô A2. Code sẽ mở file PDF bằng Internet Explorer.

 

[sony18102012]

Cách đơn giản nhất bạn có thể làm là:

sub test()
  Dim IE as object

  set IE = CreateObject("InternetExplorer.Application") 
  IE.Navigate [A1] & "#Page=" & [A2]
  IE.Visible = True
end sub

Với đường dẫn đến file pdf lưu ở ô A1, trang bạn muốn mở ở ô A2. Code sẽ mở file PDF bằng Internet Explorer.

Với cách mở file PDF ở trên sau khi mở mình muốn in ra luôn thì phải viết code như thế nào ?

 

[HUYNHTIEN0202]

Với cách mở file PDF ở trên sau khi mở mình muốn in ra luôn thì phải viết code như thế nào ?

Còn đây là code in PDF mình tìm trên Web bạn tham khảo thêm.

Private Sub CommandButton2_Click()
With CreateObject("Shell.Application")
       .Namespace(0).ParseName("D:\TenFile.pdf").InvokeVerb ("Print")
  End With
End Sub

 

[sony18102012]

Còn đây là code in PDF mình tìm trên Web bạn tham khảo thêm.

Private Sub CommandButton2_Click()
With CreateObject("Shell.Application")
       .Namespace(0).ParseName("D:\TenFile.pdf").InvokeVerb ("Print")
  End With
End Sub

Cám ơn ban nhiều nha!

 

[sony18102012]

Cám ơn ban nhiều nha!

Bạn ơi ! sau khi chèn vào đoạn code của mình để in ra nhiều file PDF khác nhau, thì mình gặp 1 vấn đề là:

• Nếu nó tìm được hết thì không sao
• Nhưng nó tìm không thấy 1 file PDF cần tìm là nó báo lỗi và không chạy tiếp để tìm file tiếp theo.

Bạn có cách nào khi không tìm thấy thì chuyển qua tìm file tiếp theo được không?

 

[quick87]

Bạn ơi ! sau khi chèn vào đoạn code của mình để in ra nhiều file PDF khác nhau, thì mình gặp 1 vấn đề là:

• Nếu nó tìm được hết thì không sao
• Nhưng nó tìm không thấy 1 file PDF cần tìm là nó báo lỗi và không chạy tiếp để tìm file tiếp theo.

Bạn có cách nào khi không tìm thấy thì chuyển qua tìm file tiếp theo được không?

Bạn thử với code này:

Private Sub CommandButton2_Click()
On Error Resume Next
With CreateObject("Shell.Application")
      .Namespace(0).ParseName("D:\TenFile.pdf").InvokeVerb ("Print")
  End With
End Sub

 

[sony18102012]

Bạn thử với code này:

Private Sub CommandButton2_Click()
On Error Resume Next
With CreateObject("Shell.Application")
      .Namespace(0).ParseName("D:\TenFile.pdf").InvokeVerb ("Print")
  End With
End Sub

Cám ơn quick87 nha, code chạy thành công.

 

[forpromise2013]

Còn đây là code in PDF mình tìm trên Web bạn tham khảo thêm.

Private Sub CommandButton2_Click()
With CreateObject("Shell.Application")
       .Namespace(0).ParseName("D:\TenFile.pdf").InvokeVerb ("Print")
  End With
End Sub

Bạn ơi! Mình muốn in 2 bản pdf thì code như thế nào vậy?

 

[babyheomoi]

Cho mình hỏi vấn đề này, nếu mình muốn open bằng ứng dụng Adobe reader hay Foxit Reader thì chỉnh lại như thế nào?
Và ứng dụng đó tên đúng là gì thì mình tham khảo ở đâu, bằng cách nào (Ví dụ như "InternetExplorer.Application")

 

[qazxsw]

Cách đơn giản nhất bạn có thể làm là:

sub test()
  Dim IE as object

  set IE = CreateObject("InternetExplorer.Application") 
  IE.Navigate [A1] & "#Page=" & [A2]
  IE.Visible = True
end sub

Với đường dẫn đến file pdf lưu ở ô A1, trang bạn muốn mở ở ô A2. Code sẽ mở file PDF bằng Internet Explorer.

chào bạn. trong trường hợp muốn dung Adobe Reader XI thì khai báo như nào. Nhờ bạn chỉ cho mình.