Tạo giúp em cái Macro với

[ngocson19902008]

Chào các anh chị
Em có file in ấn như file
Em muốn bây giờ là làm sao chỉ cần click 1 phát là nó tự động in ở sheet mũi số 1 đến hết DS tiem mui 1(in 2 mặt ah)
Hiện tại như file thì sẽ in 394 tờ giấy 2 mặt ở mũi số 1
và cũng in ở mũi số 3 theo danh sách tương ứng
Em cảm ơn các anh chị ah

 

[befaint]

Chào các anh chị
Em có file in ấn như file
Em muốn bây giờ là làm sao chỉ cần click 1 phát là nó tự động in ở sheet mũi số 1 đến hết DS tiem mui 1(in 2 mặt ah)
Hiện tại như file thì sẽ in 394 tờ giấy 2 mặt ở mũi số 1
và cũng in ở mũi số 3 theo danh sách tương ứng
Em cảm ơn các anh chị ah

Yêu cầu của bạn thì trên diễn đàn có nhiều, bạn tìm với từ khóa: "in theo form".
Tôi mở file của bạn thì được một lúc lại treo Excel... nên đành chịu.
Bạn tạo một cái form vừa cho 1 trang in, các nội dung trong phiếu thì tham chiếu (theo STT) từ danh sách dữ liệu đã có.
Phần còn lại là điền tự động các STT vào form rồi in.
Bạn làm lại cái đó thì tôi sẽ làm giúp bạn.
p/s: Tôi thắc mắc vài ý:
- Khổ giấy cần in là gì? Bao nhiều tờ phiếu bố trí / 1 trang giấy.
- "... in 394 tờ giấy 2 mặt ở mũi số 1": Chắc là 394 tờ phiếu?
- Phiếu này in, cắt và phát cho nhân viên hay để làm gì? Nếu phát cho nhân viên thì sao lại in 2 mặt nhỉ?

 

[ngocson19902008]

Yêu cầu của bạn thì trên diễn đàn có nhiều, bạn tìm với từ khóa: "in theo form".
Tôi mở file của bạn thì được một lúc lại treo Excel... nên đành chịu.
Bạn tạo một cái form vừa cho 1 trang in, các nội dung trong phiếu thì tham chiếu (theo STT) từ danh sách dữ liệu đã có.
Phần còn lại là điền tự động các STT vào form rồi in.
Bạn làm lại cái đó thì tôi sẽ làm giúp bạn.
p/s: Tôi thắc mắc vài ý:
- Khổ giấy cần in là gì? Bao nhiều tờ phiếu bố trí / 1 trang giấy.
- "... in 394 tờ giấy 2 mặt ở mũi số 1": Chắc là 394 tờ phiếu?
- Phiếu này in, cắt và phát cho nhân viên hay để làm gì? Nếu phát cho nhân viên thì sao lại in 2 mặt nhỉ?

Thank bác
Khổ giấy đang là A4 bác ah
In hai mặt vì cái mặt sau là hướng dẫn sau khi tiêm cho đỡ tai biến ah
Tức là mỗi lần in sẽ được 1 tờ in 2 mặt,mặt tên nhân viên và mặt hướng dẫn
Em đã cài được cái ấn nút in thì nó sẽ tự động in 2 mặt bằng cách ghi macro,nhưng em không biết tạo cái số thứ tự
Em muốn,sau khi em ấn in 1 hàng, số thứ tự thì số 1 trên cùng nhảy sang số 10 và cứ tiếp như vậy rồi hàng số 10 đó nhảy lên theo quy tắc lớn hơn 9,vì mỗi lần in là được 9 nhân viên
Phiếu này phát cho nhân viên ah
In xong và đóng dấu thì nó mới có giá trị

 

[befaint]

mỗi lần in sẽ được 1 tờ in 2 mặt,mặt tên nhân viên và mặt hướng dẫn

Cái đoạn này ở bài #1 đâu có đề cập tới...

Em muốn,sau khi em ấn in 1 hàng, số thứ tự thì số 1 trên cùng nhảy sang số 10 và cứ tiếp như vậy rồi hàng số 10 đó nhảy lên theo quy tắc lớn hơn 9,vì mỗi lần in là được 9 nhân viên

Sub inphieu()
Dim i&, n&
n = x 'x là số thứ tự lớn nhất của bản danh sách
For i =1 to n step 9
sheets("ten_sheet").range("A2").value=i   'Giả sử ô A2 của sheet cần in phiếu là ô cần nhập stt đầu tiên của các lần in
sheets("ten_sheet").printout 'Cái đoạn in 2 mặt của bạn
next
end sub

 

[ngocson19902008]

Cái đoạn này ở bài #1 đâu có đề cập tới...

Sub inphieu()
Dim i&, n&
n = x 'x là số thứ tự lớn nhất của bản danh sách
For i =1 to n step 9
sheets("ten_sheet").range("A2").value=i   'Giả sử ô A2 của sheet cần in phiếu là ô cần nhập stt đầu tiên của các lần in
sheets("ten_sheet").printout 'Cái đoạn in 2 mặt của bạn
next
end sub

Thank bác nhiều ah
Em co đề cập #1 là in 2 mặt đó chứ