Add-Ins cho phép chọn in nhiều sheets một lúc (3 người xem)

[befaint]

Tiện ích cho phép chọn in nhiều sheets một lúc.
Cách đây vài năm, mình tìm mãi mới thấy tiện ích chọn in nhiều sheets một lúc trong phần mềm ASAP Utilities.
Lúc đó, mình mới bắt đầu sử dụng tới excel
Nay có thời gian nên mình làm tiện ích này (có thêm vài lựa chọn...). Mặc dù code còn lủng củng lắm nhưng chạy tạm ổn
Bạn nào cần thì tải về dùng xem có hỗ trợ được gì cho công việc không nhé.

 

[huuthang_bd]

Tiện ích cho phép chọn in nhiều sheets một lúc.
Cách đây vài năm, mình tìm mãi mới thấy tiện ích chọn in nhiều sheets một lúc trong phần mềm ASAP Utilities.
Lúc đó, mình mới bắt đầu sử dụng tới excel
Nay có thời gian nên mình làm tiện ích này (có thêm vài lựa chọn...). Mặc dù code còn lủng củng lắm nhưng chạy tạm ổn
Bạn nào cần thì tải về dùng xem có hỗ trợ được gì cho công việc không nhé.

View attachment 155164

Muốn in nhiều sheet thì chọn nhiều sheet rồi in thôi. Đâu cần phải code ta???

 

[befaint]

Muốn in nhiều sheet thì chọn nhiều sheet rồi in thôi. Đâu cần phải code ta???

Có những trường hợp thì dùng tiện ích phù hợp hơn là phương án chọn rồi in ạ.
Và em cũng đã nói "ai cần thì tải về dùng" chứ không bàn luận về phương án nào thuận lợi hơn, có hay không dùng code.
Cảm ơn anh.

 

[quangtrung_utt]

cảm ơn bạn,addin rất hữu ích.mình đang cần nó.)

 

[kscongtrinh]

cảm ơn bạn,addin rất hữu ích.mình đang cần nó.)

add in load lên trên máy mình không hiểu sao nặng quá chạy không được , bạn có addin nào quản lý sheet và in ấn như thế không mà nhẹ hơn

 

[nhatplhd]

Bạn ơi, bạn sửa lại chỉ in nhiều sheet mà không bị ẩn được không?

 

[nhatplhd]

Tiện ích cho phép chọn in nhiều sheets một lúc.
Cách đây vài năm, mình tìm mãi mới thấy tiện ích chọn in nhiều sheets một lúc trong phần mềm ASAP Utilities.
Lúc đó, mình mới bắt đầu sử dụng tới excel
Nay có thời gian nên mình làm tiện ích này (có thêm vài lựa chọn...). Mặc dù code còn lủng củng lắm nhưng chạy tạm ổn
Bạn nào cần thì tải về dùng xem có hỗ trợ được gì cho công việc không nhé.

View attachment 155164

Bạn ơi, bạn sửa lại chỉ in nhiều sheet mà không bị ẩn được không? với cả nếu mình chọn in sang file PDF nó không hỏi chỗ lưu flie

 

[kienxd04]

lệnh này xài ntn vậy bạn?

 

[GTK-PM]

@befaint: Anh có thể cải tiến lưu từng sheet ra PDF không? Em chọn chế độ lưu ra PDF trong Addin này nhưng vẫn thành lệnh in .

 

[befaint]

@befaint: Anh có thể cải tiến lưu từng sheet ra PDF không? Em chọn chế độ lưu ra PDF trong Addin này nhưng vẫn thành lệnh in .

Bạn có thể dùng máy in ảo để in ra định dạng *.pdf.

 

[GTK-PM]

Bạn có thể dùng máy in ảo để in ra định dạng *.pdf.

Em bấm vào Print vẫn là lệnh in chứ k phải chuyển sang dạng PDF anh ạ

 

[befaint]

Em bấm vào Print vẫn là lệnh in chứ k phải chuyển sang dạng PDF anh ạ

Đúng rồi. Bạn chọn máy in ảo tạo file *.pdf rồi chọn sheet(s) cần in, click Print là được.

Windows 10 có sẵn máy in ảo Microsoft Print to PDF xịn thế sao không sử dụng? Đi xài cái doPDF làm chi?
Hoặc cài đặt phần mềm đọc *.pdf là Foxit Reader hay Nitro PDF có sẵn luôn máy in ảo ấy...

 

[Horse]

Đúng rồi. Bạn chọn máy in ảo tạo file *.pdf rồi chọn sheet(s) cần in, click Print là được.

Windows 10 có sẵn máy in ảo Microsoft Print to PDF xịn thế sao không sử dụng? Đi xài cái doPDF làm chi?
Hoặc cài đặt phần mềm đọc *.pdf là Foxit Reader hay Nitro PDF có sẵn luôn máy in ảo ấy...

Anh "ới" cái nút Print nó chưa lấy được máy in ở ComboBox1 mà vẫn lấy máy in mặc định ạ

 

[befaint]

Anh "ới" cái nút Print nó chưa lấy được máy in ở ComboBox1 mà vẫn lấy máy in mặc định ạ

Thế thì mình chịu rồi đó. Mình thử với "Microsoft Print to PDF / Foxit Reader PDF Printer" thì tạo file *.pdf bình thường.

 

[Horse]

Thế thì mình chịu rồi đó. Mình thử với "Microsoft Print to PDF / Foxit Reader PDF Printer" thì tạo file *.pdf bình thường.

Sao máy em nó lại thế này anh nhỉ

​

 

[befaint]

Sao máy em nó lại thế này anh nhỉ

Nó bị treo rồi kìa

Mình không bao giờ: Tên Driver, Folder, File, Sheet dùng chữ có dấu.

Bạn thử lại như sau: Thiết lập máy in mặc định là máy in ảo (Vào chỗ quản lý Printer của windows).

 

[Horse]

Nó bị treo rồi kìa

Mình không bao giờ: Tên Driver, Folder, File, Sheet dùng chữ có dấu.

Bạn thử lại như sau: Thiết lập máy in mặc định là máy in ảo (Vào chỗ quản lý Printer của windows).

Mà Em đặt cái máy in vào dòng lệnh như thế này

  Sheets(ListBox1.List(j - 1, 0)).PrintOut , ActivePrinter:=ComboBox1, From:=i, To:=i, Copies:=cp, Collate:=col

thì được Anh ạ

 

[GTK-PM]

Mà Em đặt cái máy in vào dòng lệnh như thế này

  Sheets(ListBox1.List(j - 1, 0)).PrintOut , ActivePrinter:=ComboBox1, From:=i, To:=i, Copies:=cp, Collate:=col

thì được Anh ạ

Thêm vào đoạn nào anh nhỉ ?

 

[Horse]

Thêm vào đoạn nào anh nhỉ ?

Sao lại là anh. Ảnh đẹp cỡ rứa mà
Thì thay những dòng nào có
Sheets(ListBox1.List(j - 1, 0)).PrintOut From:=i, To:=i, Copies:=cp, Collate:=col
thành dòng lệnh trên thì thấy nó nhận được máy in ở ComboBox1

 

[dangky47h]

Tiện ích cho phép chọn in nhiều sheets một lúc.
Cách đây vài năm, mình tìm mãi mới thấy tiện ích chọn in nhiều sheets một lúc trong phần mềm ASAP Utilities.
Lúc đó, mình mới bắt đầu sử dụng tới excel
Nay có thời gian nên mình làm tiện ích này (có thêm vài lựa chọn...). Mặc dù code còn lủng củng lắm nhưng chạy tạm ổn
Bạn nào cần thì tải về dùng xem có hỗ trợ được gì cho công việc không nhé.

View attachment 155164

cám ơn bạn nhé












1

 

[lenolim]

Tiện ích cho phép chọn in nhiều sheets một lúc.
Cách đây vài năm, mình tìm mãi mới thấy tiện ích chọn in nhiều sheets một lúc trong phần mềm ASAP Utilities.
Lúc đó, mình mới bắt đầu sử dụng tới excel
Nay có thời gian nên mình làm tiện ích này (có thêm vài lựa chọn...). Mặc dù code còn lủng củng lắm nhưng chạy tạm ổn
Bạn nào cần thì tải về dùng xem có hỗ trợ được gì cho công việc không nhé.

View attachment 155164

Xin phép tác giả của ứng dụng này. Cho tôi được lục lại chủ đề này.
Mong muốn tác giả cùng các thành viên trong diễn đàn giúp đỡ. Bổ sung thêm 1 thông báo khi bấm nút Print của ứng dụng, đó là:
Trường hợp. Khi bấm nút Print, mà ta chưa Click chọn sheets nào để in thì sẽ hiện lên 1 thông báo là: "Chưa có Sheets nào được chọn để In"
Xin cảm ơn!