In nhanh nhiều bảng lương cùng lúc

[lameco411]

Em có một vấn đề mong các anh chị giúp đỡ:
Em làm phiếu lương cho công nhân mỗi người 1 tờ A5.
Em có template sẵn và lấy dữ liệu từ một sheet khác qua để in.
Em đã dùng code cho nó chạy tự in từ 1 tới n người.
Nhưng mà cách in này rất chậm, vì phải thực hiện tới n lượt in.
Giờ em muốn nó xuất ra chung một file pdf để in ra cho nhanh thì có được không?
Hoặc là bác nào có cách in nhanh giúp em với ạ

 

[saobekhonglac]

Em có một vấn đề mong các anh chị giúp đỡ:
Em làm phiếu lương cho công nhân mỗi người 1 tờ A5.
Em có template sẵn và lấy dữ liệu từ một sheet khác qua để in.
Em đã dùng code cho nó chạy tự in từ 1 tới n người.
Nhưng mà cách in này rất chậm, vì phải thực hiện tới n lượt in.
Giờ em muốn nó xuất ra chung một file pdf để in ra cho nhanh thì có được không?
Hoặc là bác nào có cách in nhanh giúp em với ạ

Được. Đưa file lên đi.

 

[lameco411]

chỗ em in nằm bên sheet Phiếu lương ạ pass 159753

 

[befaint]

In nhanh nhiều bảng lương cùng lúc

Điều này là không thể. Cho dù dùng siêu máy tính để tạo lệnh in nhưng chẳng có siêu máy in nào thực hiện được.

In một loạt phiếu liên tục còn có thể làm được.

 

[lameco411]

Điều này là không thể. Cho dù dùng siêu máy tính để tạo lệnh in nhưng chẳng có siêu máy in nào thực hiện được.

In một loạt phiếu liên tục còn có thể làm được.

Cái này chắc do em nhầm lẫn trong cách nói thôi, chứ ý em là muốn nó in nhanh hơn, chứ cách in như em làm chậm rì luôn

 

[snow25]

Cái này chắc do em nhầm lẫn trong cách nói thôi, chứ ý em là muốn nó in nhanh hơn, chứ cách in như em làm chậm rì luôn

ý bạn muốn là in cả sheets đấy ra dạng PDF rồi in cho nhanh đúng không.

 

[♫ђöล♥ßล†♥†µ♫]

ý bạn muốn là in cả sheets đấy ra dạng PDF rồi in cho nhanh đúng không.

Máy photocopy của mình file PDF chậm hơn rất nhiều so với in trực tiếp. Nhưng cái máy Canon2800 thì lại chậm hơn cái code in liên tục

 

[be_09]

Em có một vấn đề mong các anh chị giúp đỡ:
Em làm phiếu lương cho công nhân mỗi người 1 tờ A5.
Em có template sẵn và lấy dữ liệu từ một sheet khác qua để in.
Em đã dùng code cho nó chạy tự in từ 1 tới n người.
Nhưng mà cách in này rất chậm, vì phải thực hiện tới n lượt in.
Giờ em muốn nó xuất ra chung một file pdf để in ra cho nhanh thì có được không?
Hoặc là bác nào có cách in nhanh giúp em với ạ

Sao có cái vụ xuất phiếu lương của từng người vào chung một file pdf để in cho nhanh (hỏi gì lạ đời vậy)?

 

[snow25]

Sao có cái vụ xuất phiếu lương của từng người vào chung một file pdf để in cho nhanh (hỏi gì lạ đời vậy)?

Chắc là bạn đấy muốn làm 1 cái form chuẩn rồi đẩy toàn bộ thông tin bảng lương của mọi người vào rồi in 1 thể không cần phải chạy vòng lặp in từng cái 1 nữa. ko biết có đúng không nhỉ

 

[lameco411]

Sao có cái vụ xuất phiếu lương của từng người vào chung một file pdf để in cho nhanh (hỏi gì lạ đời vậy)?

Tại vì phải chạy n lệnh in thì lâu hơn là in 1 file có n trang đúng không ạ

 

[snow25]

Tại vì phải chạy n lệnh in thì lâu hơn là in 1 file có n trang đúng không ạ

Bác Be09 nói là tại sao phải xuất ra PDF ấy,mà ko làm ở trên excel.vẫn làm được mà

 

[lameco411]

Bác Be09 nói là tại sao phải xuất ra PDF ấy,mà ko làm ở trên excel.vẫn làm được mà

Mình chỉ cần nhanh thôi, tại mình không nghĩ ra được cái khác nên mới nghĩ là xuất ra .pdf thôi. Bác nào giúp dùm em vụ này với. Cái cách này em còn áp dụng trong tạo phiếu cân hàng để làm thông tin cho thuế kiểm tra nữa, mỗi lần vậy in cả mấy trăm tờ. Máy in thì xài chung nên mỗi lần như vậy mọi người rất là khổ

 

[be_09]

Mình chỉ cần nhanh thôi, tại mình không nghĩ ra được cái khác nên mới nghĩ là xuất ra .pdf thôi. Bác nào giúp dùm em vụ này với. Cái cách này em còn áp dụng trong tạo phiếu cân hàng để làm thông tin cho thuế kiểm tra nữa, mỗi lần vậy in cả mấy trăm tờ. Máy in thì xài chung nên mỗi lần như vậy mọi người rất là khổ

Muốn nhanh thì thiết kế lại 2 người trong 1 tờ A4 thì rút ngắn được 1 nữa thời gian in.

 

[nguyenthuy13388]

Mình chỉ cần nhanh thôi, tại mình không nghĩ ra được cái khác nên mới nghĩ là xuất ra .pdf thôi. Bác nào giúp dùm em vụ này với. Cái cách này em còn áp dụng trong tạo phiếu cân hàng để làm thông tin cho thuế kiểm tra nữa, mỗi lần vậy in cả mấy trăm tờ. Máy in thì xài chung nên mỗi lần như vậy mọi người rất là khổ

Đoán mò thôi, nếu không phải đừng trách nhé
hình như bạn copy code ở đâu cho phần in phiếu này nên không dùng được thì phải,
bản thử đổi sheet11 thánh Sheets("PH.Luong") xem sao?

Sub inbangluong()
Dim i As Long, intu As Long, inden As Long
intu = Sheets("PH.Luong").Range("F5").Value
inden = Sheets("PH.Luong").Range("G5").Value
For i = intu To inden
    Sheets("PH.Luong").Range("F1").Value = i
    Sheets("PH.Luong").PrintOut preview = False
Next i
End Sub

 

[lameco411]

Muốn nhanh thì thiết kế lại 2 người trong 1 tờ A4 thì rút ngắn được 1 nữa thời gian in.

Bài đã được tự động gộp: 31/10/18

Em tìm ra được giải pháp rồi, cám ơn mọi người, em cho in ra foxit reader nhanh hơn nhiều.

 

[doanthanhtrieu]

Đoán mò thôi, nếu không phải đừng trách nhé
hình như bạn copy code ở đâu cho phần in phiếu này nên không dùng được thì phải,
bản thử đổi sheet11 thánh Sheets("PH.Luong") xem sao?

Sub inbangluong()
Dim i As Long, intu As Long, inden As Long
intu = Sheets("PH.Luong").Range("F5").Value
inden = Sheets("PH.Luong").Range("G5").Value
For i = intu To inden
    Sheets("PH.Luong").Range("F1").Value = i
    Sheets("PH.Luong").PrintOut preview = False
Next i
End Sub

Nếu mình in 2 người trong một trang giấy A4 thì trang số 2 sẽ bị lặp một người, có lệnh nào không bị lặp không ah?

 

[nguyenthuy13388]

Nếu mình in 2 người trong một trang giấy A4 thì trang số 2 sẽ bị lặp một người, có lệnh nào không bị lặp không ah?

bạn xem file:

Sub inbangluong()
Dim i As Long, intu As Long, inden As Long
intu = Sheets("PH.LUONG").Range("F5").Value
inden = Sheets("PH.LUONG").Range("G5").Value
For i = intu To inden Step 2
    Sheets("PH.LUONG").Range("F1").Value = i
    Sheets("PH.LUONG").Range("A1:D31").PrintOut
Next i
End Sub

 

[doanthanhtrieu]

bạn xem file:

Sub inbangluong()
Dim i As Long, intu As Long, inden As Long
intu = Sheets("PH.LUONG").Range("F5").Value
inden = Sheets("PH.LUONG").Range("G5").Value
For i = intu To inden Step 2
    Sheets("PH.LUONG").Range("F1").Value = i
    Sheets("PH.LUONG").Range("A1:D31").PrintOut
Next i
End Sub

Mình làm ok roi cam on moi nguoi nha

 

[kh0jy3n]

Nếu mình in 2 người trong một trang giấy A4 thì trang số 2 sẽ bị lặp một người, có lệnh nào không bị lặp không ah?

Bác dùng thử file này nhé.
chọn từ phiếu đầu tiền tới phiếu muôn in cuối cùng.
Tiện làm cái Vlookup hình ảnh cho bác luôn .
code thì học dc ở diễn đàn thôi ạ xong tùy biến tý là ok ạ