Tạo lệnh in phiếu cho danh sách cần in (1 người xem)

[huytc91]

Chào các anh chị trong diễn đàn!
Em có một file excel, trong đó có một sheet 1là phiếu in gồm 9 phiếu có mặt trước và mặt sau. Sheet 2 là danh sách sẽ dùng để tham chiếu sang phiếu in. Hiện tại em phải in từng tờ gồm 9 phiếu đó một lên rất mất thời gian.
Vậy nhờ anh chị tạo giúp em một lệnh in phiếu sao cho in một lần hết tất cả các danh sách đó.
Cảm ơn anh chị ạ!

 

[giaiphap]

Chào các anh chị trong diễn đàn!
Em có một file excel, trong đó có một sheet 1là phiếu in gồm 9 phiếu có mặt trước và mặt sau. Sheet 2 là danh sách sẽ dùng để tham chiếu sang phiếu in. Hiện tại em phải in từng tờ gồm 9 phiếu đó một lên rất mất thời gian.
Vậy nhờ anh chị tạo giúp em một lệnh in phiếu sao cho in một lần hết tất cả các danh sách đó.
Cảm ơn anh chị ạ!

Bạn xem được chưa? Theo mình thấy trong file của bạn công thức tham chiếu như vậy không đúng thì phải (Hình như bị thừa).

 

[huytc91]

Bạn xem được chưa? Theo mình thấy trong file của bạn công thức tham chiếu như vậy không đúng thì phải (Hình như bị thừa).

Hình như có sự nhầm lẫn ở đây. mình xem cái file bạn gửi không đúng với cái file mình up lên. Bạn xem lại giúp mình với.

 

[befaint]

Chào các anh chị trong diễn đàn!
Em có một file excel, trong đó có một sheet 1là phiếu in gồm 9 phiếu có mặt trước và mặt sau. Sheet 2 là danh sách sẽ dùng để tham chiếu sang phiếu in. Hiện tại em phải in từng tờ gồm 9 phiếu đó một lên rất mất thời gian.
Vậy nhờ anh chị tạo giúp em một lệnh in phiếu sao cho in một lần hết tất cả các danh sách đó.
Cảm ơn anh chị ạ!

Hai bạn này là anh em sinh đôi sao?
http://www.giaiphapexcel.com/forum/showthread.php?109985-Tạo-giúp-em-cái-Macro-với

Sub inphieu()
Dim i&, n&
n = sheets("Phieu in").range("AF5").value  
For i =1 to n step 9
sheets("Phieu in").range("AF4").value=i   
sheets("Phieu in").printout 
Next
End sub

 

[huytc91]

Hai bạn này là anh em sinh đôi sao?
http://www.giaiphapexcel.com/forum/showthread.php?109985-Tạo-giúp-em-cái-Macro-với

Sub inphieu()
Dim i&, n&
n = sheets("Phieu in").range("AF5").value  
For i =1 to n step 9
sheets("Phieu in").range("AF4").value=i   
sheets("Phieu in").printout 
Next
End sub

Ồ ồ. Không phải là song sinh mà là mình sinh sau. thanks bạn nhé!