Chuyển file bản vẽ .pdf vào 1 sheet excel mà vẫn giữ nguyên chất lượng của bản vẽ

[Haffaz Aladeen]

Hi cả nhà,

Cho em hỏi có cách nào mà chuyển file bản vẽ pdf vào 1 sheet của excel mà vẫn rõ nét không nhỉ?. Em dùng Insert Object mà bản vẽ nhìn mờ quá.
Thử chuyển qua định dạng tiff hay hình ảnh thì chất lượng lại phụ thuộc vào phần mềm chuyển, và lại mất công.

Mục đích em chuyển vào excel là để có thể in 2 mặt, 1 mặt là sheet1, 1 mặt là bản vẽ. Nếu ai có cách mở in file pdf cùng với file excel vào 2 mặt của tờ giấy luôn càng tốt ạ.

Em cảm ơn!

 

[Hoàng Tuấn 868]

Mục đích em chuyển vào excel là để có thể in 2 mặt, 1 mặt là sheet1, 1 mặt là bản vẽ. Nếu ai có cách mở in file pdf cùng với file excel vào 2 mặt của tờ giấy luôn càng tốt ạ.
Em cảm ơn!

Vậy thì nên chuyển excel sang pdf rồi in thì tiện hơn.

 

[Haffaz Aladeen]

Vậy thì nên chuyển excel sang pdf rồi in thì tiện hơn.

Mình muốn thực hiện in tự động nhiều tờ, nếu chuyển excel sang pdf thì mình in luôn trên excel cũng đk mà.
Nếu không có cách nào thì mình buộc phải in tự động 1 mặt file excel trước, rồi lấy sấp giấy đó lật ngược lại và làm 1 đoạn code lấy file bản vẽ pdf rồi in lại sấp giấy đó thì cũng thành 2 mặt. Nhưng vì khá mất công nên mình muốn tìm thử có cách khác không đó

 

[ongke0711]

Mình muốn thực hiện in tự động nhiều tờ, nếu chuyển excel sang pdf thì mình in luôn trên excel cũng đk mà.
Nếu không có cách nào thì mình buộc phải in tự động 1 mặt file excel trước, rồi lấy sấp giấy đó lật ngược lại và làm 1 đoạn code lấy file bản vẽ pdf rồi in lại sấp giấy đó thì cũng thành 2 mặt. Nhưng vì khá mất công nên mình muốn tìm thử có cách khác không đó

Bạn chuyển file PDF thành EMF hoăc WMF rồi Insert vào xem chất lượng như thế nào. 2 dạng này còn giữ nguyên định dạng vector của file PDF.
Bên cạnh đó thì thiết lập trong Excel Option - Advance

 

[Haffaz Aladeen]

Bạn chuyển file PDF thành EMF hoăc WMF rồi Insert vào xem chất lượng như thế nào. 2 dạng này còn giữ nguyên định dạng vector của file PDF.
Bên cạnh đó thì thiết lập trong Excel Option - Advance

View attachment 263653

Cảm ơn anh nhiều ạ,
Về phần chuyển qua file EMF khá OK, có chuyển online trên web và giữ nguyên tên file pdf, khá tiện cho việc truy xuất để mở hoặc chèn hình. Nhưng khổ nổi cái list bản vẽ của em nó có cả file scan lại, nên chuyển qua EMF thì lại bị đứt nét.
Điều chỉnh trong Option - Advance thì cũng chỉ giảm bớt được phần nào thôi.

Em tự nghĩ hay có thể xuất excel qua pdf và merge lại với file bản vẽ tự động được không nhỉ?

 

[giaiphap]

Em tự nghĩ hay có thể xuất excel qua pdf và merge lại với file bản vẽ tự động được không nhỉ?

Cách này hoàn toàn làm được bằng VBA.

 

[befaint]

In thì cứ thế in thôi, đâu cần chuyển/ chèn gì.

Úp cả bộ lên xem nào, in cái nào với cái nào vào 1 tờ?

 

[Haffaz Aladeen]

In thì cứ thế in thôi, đâu cần chuyển/ chèn gì.

Úp cả bộ lên xem nào, in cái nào với cái nào vào 1 tờ?

Được thế thì quá tuyệt vời ạ.

Đây là 1 file excel, khi thay đổi Mã số sản phẩm tại cell C5 thì sẽ in 1 mặt là sheet1, 1 mặt là bản vẽ có tên tương ứng với mã số ạ

Em cảm ơn nhiều nhé!

Cách này hoàn toàn làm được bằng VBA.

Vậy anh cho em xin code này với ạ!

Bài đã được tự động gộp: 6/8/21

Được thế thì quá tuyệt vời ạ.

Đây là 1 file excel, khi thay đổi Mã số sản phẩm tại cell C5 thì sẽ in 1 mặt là sheet1, 1 mặt là bản vẽ có tên tương ứng với mã số ạ

Em cảm ơn nhiều nhé!


Vậy anh cho em xin code này với ạ!

Úi, em quên đính kèm

 

[befaint]

Đây là 1 file excel, khi thay đổi Mã số sản phẩm tại cell C5 thì sẽ in 1 mặt là sheet1, 1 mặt là bản vẽ có tên tương ứng với mã số ạ

Cái này là để tiết kiệm giấy phải không?
Nếu không phải thì in mỗi cái vào một tờ.
Nếu phải thì:
- in toàn bộ danh sách ở Excel vào 1 mặt
- úp giấy cho vào máy in rồi in bản vẽ theo thứ tự tương ứng.

Vậy là được thôi.

 

[Haffaz Aladeen]

Cái này là để tiết kiệm giấy phải không?

Đúng rồi anh ạ, mà nghiệt nỗi máy in ở khá xa, và in lặt vặt nhiều nên không tiện lắm anh.
Nhưng nếu có cách merge 1 sheet với 1 file pdf thành pdf như anh giaiphap nói thì khá OK luôn đó anh

 

[befaint]

Đúng rồi anh ạ, mà nghiệt nỗi máy in ở khá xa, và in lặt vặt nhiều nên không tiện lắm anh.

Nếu công việc nhiều, chính đáng, bạn chỉ cần lên tiếng với cấp trên: em cần một máy in phục vụ công việc xyz (trình bày rõ ràng, mạch lạc).
Rồi bạn sẽ có 1 cái máy in riêng của mình để làm việc.
Đơn giản vậy thôi, nhưng mình phải cất tiếng nói.

 

[giaiphap]

Được thế thì quá tuyệt vời ạ.

Đây là 1 file excel, khi thay đổi Mã số sản phẩm tại cell C5 thì sẽ in 1 mặt là sheet1, 1 mặt là bản vẽ có tên tương ứng với mã số ạ

Em cảm ơn nhiều nhé!


Vậy anh cho em xin code này với ạ!

Bài đã được tự động gộp: 6/8/21

Úi, em quên đính kèm

Giờ tắt máy rồi, tối nếu chưa ai giúp thì tui sẽ giúp. Hỏi thêm là mục đích cuối cùng của code là tạo ra file pdf (file này ghép từ sheet và file pdf khác) hay in ra máy in luôn không cần tạo file pdf (in ghép 1 mặt là sheet và mặt còn lại là file pdf).

 

[Haffaz Aladeen]

Giờ tắt máy rồi, tối nếu chưa ai giúp thì tui sẽ giúp. Hỏi thêm là mục đích cuối cùng của code là tạo ra file pdf (file này ghép từ sheet và file pdf khác) hay in ra máy in luôn không cần tạo file pdf (in ghép 1 mặt là sheet và mặt còn lại là file pdf).

Mục đích chính là để in ghép 1 mặt là sheet và 1 mặt còn lại là file pdf đó anh.
Em cảm ơn anh ạ!

 

[giaiphap]

Mục đích chính là để in ghép 1 mặt là sheet và 1 mặt còn lại là file pdf đó anh.
Em cảm ơn anh ạ!

Xem code trong file.

 

[Haffaz Aladeen]

Xem code trong file.

Em cảm ơn anh nhiều nhé!

mà em chạy file thì nó bị lỗi như hình đó anh.
Nó báo lỗi dòng: Shell "pdftk" & Join(a, " ") & " cat output " & """" & pdfOut & """", vbHide
tại sao vậy anh nhỉ?

 

[Haffaz Aladeen]

À, Mình phải cài phần mềm Adode Acrobat DC thì mới chạy được.

Em cảm ơn mọi người nhiều nhé!