in trang tính excel

[auvfei]

Chào các bác,

E có 1 file thực hiện chức năng in theo vòng lặp, Tuy nhiên vì code của e khá đơn giản nên mỗi vòng lặp sẽ phát động 1 lần in dẫn đến việc in của e khá chậm. Vậy có cách nào để việc in chỉ thực hiện 1 lần mà vẫn có thể in đủ vòng lặp đc ko ạ?

Code của e như sau:

Sub inphieu()
Dim i, a As Long
a = Sheet("phieuin").Range("J2").Value
For i = 1 To a
    Sheet("phieuin").Range("A2").Value = i
    Sheet("phieuin").PrintOut preview = False
Next i
End Sub

Em cảm ơn!

 

[befaint]

chậm

Việc in đâu liên quan code. Máy in khỏe thì nhận lệnh in là chạy thôi.
Dữ liệu của trang in nhiều thì máy tính gửi sang máy in lâu và ngược lại.

Câu chuyện chậm là do sự kiện này
Sheet("phieuin").Range("A2").Value = i
=> Cần xem trên bảng tính đó những cái gì chạy theo sự kiện đó.
Ví dụ nhiều công thức, công thức hàng khủng chẳng hạn.

 

[auvfei]

Việc in đâu liên quan code. Máy in khỏe thì nhận lệnh in là chạy thôi.
Dữ liệu của trang in nhiều thì máy tính gửi sang máy in lâu và ngược lại.

Bạn chưa hiểu ý mình, chẳng qua mình cần đơn giản hóa thao tác in của máy in đi. Như mình đề cập thì có 2 cách in như sau:

Cách 1. máy chỉ thực hiện 1 lệnh in nhiều trang
Cách 2. Máy thực hiện từng 1 lệnh in cho từng trang.

Hiện tại code của mình đang theo cách thứ 2, với cách 2 thì mỗi lần in 1 trang thì máy sẽ phải khới động lại quá trình in từ đầu (e ko biết nói thế có đúng ko nhưng thấy máy nó cứ kêu "cục, cục" một lúc rồi mới in tiếp khá là lâu và "sót máy"). Và e cũng đang nghĩ đến cách 1 để bớt "cục cục" đi

 

[befaint]

kêu "cục, cục"

- Máy in có vấn đề.
- Đường truyền gửi lệnh từ máy tính tới máy in có vấn đề: Lệnh in bị gián đoạn.
- Vẫn là vấn đề trên: Bảng tính chậm quá không gửi lệnh được liên tục.
Cái này mình tự thò tay làm được luôn bằng cách tạo 1 file mới, gõ số 1 vào A1, rồi dùng lệnh trên in 100 phát xem còn ục ục không.

 

[tigertiger]

Bạn chưa hiểu ý mình, chẳng qua mình cần đơn giản hóa thao tác in của máy in đi. Như mình đề cập thì có 2 cách in như sau:

Cách 1. máy chỉ thực hiện 1 lệnh in nhiều trang
Cách 2. Máy thực hiện từng 1 lệnh in cho từng trang.

Hiện tại code của mình đang theo cách thứ 2, với cách 2 thì mỗi lần in 1 trang thì máy sẽ phải khới động lại quá trình in từ đầu (e ko biết nói thế có đúng ko nhưng thấy máy nó cứ kêu "cục, cục" một lúc rồi mới in tiếp khá là lâu và "sót máy"). Và e cũng đang nghĩ đến cách 1 để bớt "cục cục" đi

Nên xuất kết quả muốn in ra 1 sheet mới, nối các trang kết quả in với nhau (nhớ dùng page break cho từng phần in)
Rồi chuyển in cả sheet một loạt các trang đó là đạt mục đích

 

[befaint]

Ghép các trang thì quay lại khúc chậm.

Nếu nặng ký quá có khi máy in chưa nhận đủ gói tin thì cách cũ đã in xong rồi.

 

[VetMini]

Việc in đâu liên quan code. Máy in khỏe thì nhận lệnh in là chạy thôi.
...

Máy in không khoẻ thì in nhiều một lúc nó sẽ mau cháy máy. Máy laser hạng rẻ tiền đâu có làm nguội mặt trống (drum) và các bánh xe kịp. In một lúc 100 trang là tự mình đốt máy.
Máy in mục rẻ tiền đâu có làm khô mực kịp sau khi in mỗi trang. Ép nó in nhanh quá sẽ bị lem.
Msy không được thiết kế để in hai mặt mà ép nó thì sẽ bị mực dính vào bánh xe. Lâu ngày ra hiện tượng cuốn 2 tờ một lúc.

Nếu phải in nhiều bản một lúc thì sắm máy đắt tền luôn cho rồi. Tương lai có lợi kinh tế hơn.
Mỗi cái máy nó có nêu rõ chu kỳ (print cycle - in bao nhiêu tờ một tháng).

 

[auvfei]

Máy in không khoẻ thì in nhiều một lúc nó sẽ mau cháy máy. Máy laser hạng rẻ tiền đâu có làm nguội mặt trống (drum) và các bánh xe kịp. In một lúc 100 trang là tự mình đốt máy.
Máy in mục rẻ tiền đâu có làm khô mực kịp sau khi in mỗi trang. Ép nó in nhanh quá sẽ bị lem.
Msy không được thiết kế để in hai mặt mà ép nó thì sẽ bị mực dính vào bánh xe. Lâu ngày ra hiện tượng cuốn 2 tờ một lúc.

Nếu phải in nhiều bản một lúc thì sắm máy đắt tền luôn cho rồi. Tương lai có lợi kinh tế hơn.
Mỗi cái máy nó có nêu rõ chu kỳ (print cycle - in bao nhiêu tờ một tháng).

Cảm ơn các bác tư vấn.

Nếu ko bàn về vấn đề máy in thì liệu mình có cách nào thực hiện tác nghiệp in trong 1 lần đối với nhiều trang thay bằng việc in từng trang từng trang 1 không ạ?
Hiện e có 1 cách làm đó là tạo ra nhiều sheet, sau đó sellect all và print thì cũng đáp ứng được nhu cầu. Tuy nhiên lại mất thêm 1 vài thao tác tay nữa.

Thêm nữa trong TH e muốn triết xuất ra file PDF bằng "Microsoft print to PDF" thì với cách in kiểu này e sẽ phải ngồi save từng file tương ứng với từng trang 1.

 

[befaint]

Ca ô với e a thế kia thì hỏng rồi.

Một số bạn thấy hỏi nhiều, hỏi lắm chuyện là bỏ không theo nữa, mà 'theo' người mới.

 

[VetMini]

Ca ô với e a thế kia thì hỏng rồi.

Một số bạn thấy hỏi nhiều, hỏi lắm chuyện là bỏ không theo nữa, mà 'theo' người mới.

Lắm khi tại cái máy in nó không hiểu nổi các lệnh tắt tiếng Việt và tiếng Vietglish (*) nên nó mới gút mắc như vậy.

(*) Tây nó gọi tiếng Anh sì-tin Việt như vậy. Người Việt lại cải tiến hơn chút nữa, đẻ ra từ Vietlish (cắt bớt 'g')