Hỏi về code để mở một file đuôi .pdf?

[ladykiller81]

Chào các bạn!
Các bạn làm ơn chỉ giúp mình viết code để mở một file đuôi .pdf (Tên file và đường dẫn đã có sẵn trong file excel).
hơn nữa nếu các bạn có thể viết thêm cho mình đoạn code để
sau khi mở file pdf này lên, mình muốn in file đó ra khổ giấy A3 dạng landscap.
Bạn nào biết cách viết code như vậy, làm ơn chỉ giúp mình với, cám ơn nhiều!

 

[ptlong04x1]

Vì sao bạn lại có ý tưởng là vào Excel để mở và in 1 file .pdf vậy trời ??? Vụ này lạ nha.

Sub OpenPdf()
    Shell "Explorer.exe D:\Hoc tap\Giao trinh\Cap thoat nuoc\Chuong1.pdf"
End Sub

Ở trên là code mở File. Vụ in ấn thì chắc bạn phải tự làm rồi.

 

[baoca]

tra loi

Bạn hãy tải phần mềm PDF Reader có biên bản cài đặt vào Excel.Sau đó dùng excel mở file đó bình thường ==> tại sao ta cứ cố làm những điều đã có sẵn nếu đã có sẵn phần mềm free ***********************************************************TB: ********************************************************** PHP Code:Sub OpenPdf() Shell "Explorer.exe D:\Hoc tap\Giao trinh\Cap thoat nuoc\Chuong1.pdf"End Sub nhan nút Windown+R ,rồi điền vào : (explorer D:\Hoc tap\Giao trinh\Cap thoat nuoc\Chuong1.pdf)cung duoc chu ban Phan Thanh Long ;-)

 

[ladykiller81]

Cảm ơn bạn P.T.Long

Vì sao bạn lại có ý tưởng là vào Excel để mở và in 1 file .pdf vậy trời ??? Vụ này lạ nha.

Sub OpenPdf()
    Shell "Explorer.exe D:\Hoc tap\Giao trinh\Cap thoat nuoc\Chuong1.pdf"
End Sub

Ở trên là code mở File. Vụ in ấn thì chắc bạn phải tự làm rồi.

Cám ơn bạn nhiều, câu lệnh của bạn mặc dầu không áp dụng được với máy tính của mình, nhưng dù sao mình cũng hiểu ra được cấu trúc lệnh để mở file:
Shell "Tên_file_chạy_Chương_trình Tên_file_cần_mở"
(các tên file đó phải full (có nghĩa là bao gồm cả đường dẫn + tên file)
Sau đây là đoạn mã mình viết cho nút lệnh Open trong Chương trình của mình:

Private Sub CommandButton2_Click()
mpath = "Z:\3-Execution\1-RTD et SVR\SVR\PDF\CST"
No = UserForm8.ListBox1.ListIndex
tenfile1 = mpath & "\" & Cells(No + 2, 31).Value
tenfile = "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" & " " & tenfile1
Shell tenfile, vbMaximizedFocus
End Sub