Giúp in có điều kiện (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

tueyennhi

Thành viên tích cực
Tham gia
18/10/10
Bài viết
1,192
Được thích
105
Dear các anh chị em trong diễn đàn!Hàng tháng em phải in voucher sinh nhật cho rất nhiều CBCNV. Như file đính kèm em phải copy paste danh sách rất nhiều lần để in. Anh chị có cách nào tạo một form mẫu để in theo danh sách mà không phải làm thủ công như em đang làm không??? Em đã nghĩ đến mail merge nhưng không khả quan.Mong anh chị hướng dẫn!
 

File đính kèm

Lần chỉnh sửa cuối:
Dear các anh chị em trong diễn đàn!

Hàng tháng em phải in voucher sinh nhật cho rất nhiều CBCNV. Như file đính kèm em phải copy paste danh sách rất nhiều lần để in. Anh chị có cách nào tạo một form mẫu để in theo danh sách mà không phải làm thủ công như em đang làm không??? Em đã nghĩ đến mail merge nhưng không khả quan.

Mong anh chị hướng dẫn!
Cái này có nhiều trong diễn đàn rồi, bạn up file mẫu lên sẽ có người giúp ngay.
 
Cảm ơn mọi người. Mình mò không được. Trong danh sách của mình không phải giới hạn đến số 48. Mà có thể từ 1 đến vài trăm. Vì vậy khi mình in số thứ tự mà vượt quá 48 là nó không up được dữ liệu nữa. Mình thấy file của befaint rất hay, nhưng cũng mắc lỗi giống hkphuong khi vượt quá số 48. File của HKphuong thi khi preview mà muốn out luôn không được phải close rất mất thời gian :).
 
Như thế này có được ko bạn?
Hướng dẫn xem link tại chữ ký của tôi.
 

File đính kèm

Hi hkphuong

Bạn thử mà xem, mình cho danh sách 100 người, bấm in từ 48 trở lên là lỗi các giá trị trong form đều thành #N/A. Tất nhiên file có thể in ngay nhưng mà khi bấm nút preview của bạn thì...
 
Cột số thứ tự của bạn bạn phải kéo tới 100 chứ.
Nó bị #N/A là trong form tôi xài hàm vlookup, căn cứ vào số thứ tự mà nó lấy vào form. ...Hok lẻ bạn không hiểu.
Số số thứ thự là cột D của bạn
trong các giá trị tại form có công thức này:
Mã:
 =VLOOKUP($J$2,$D$2:$G$500,4,0)

Có nghĩa là đang giới hạn tới dòng 500, nếu danh sách của bạn dài hơn dòng 500 thì bạn chỉnh lại tất cả công thức vlookup có trong form...
p/s: code tôi không có nút Preview nào hết. Bấm phát nó in ra máy in luôn...Vậy liệu mà bấm chứ...


Hi hi dow file trùng tên nên nhận xét nhầm người. File bạn rất hay nhưng bạn nhìn nhé. Quá 48 nó như trong hình này nè.
 

File đính kèm

  • Untitled.jpg
    Untitled.jpg
    30.9 KB · Đọc: 18
À mình hiểu rồi, hóa ra muốn in tiếp phải kéo cột thứ tự cho số thứ tự tăng lên. Tạm thời ổn. Thank bạn nhiều nhé :).
P/s: Một page của mình in được 12 voucher. Danh sách có 24 người. Khi in từ người thứ 13 đến 15 thì mặc dù người thứ 16 đến 24 ko được in nó vẫn cứ lọt vào danh sách miến là cùng trang đó. Có cách nào mà đứa nào ko được in thì nó biến thành N#A or ko có giá trị gì hết không bác?
 
Đã viết rồi thì cũng đành nhắc vậy :(, bạn đã đọc bài #9 chưa?
 
Điều đó là không thể. Vì form mặc định...là nó lấy số thứ tự TỪ mà nó cộng tiếp theo cho đủ 12 người....
Thì bạn cứ in ra và lấy kéo cắt bỏ đi...chứ gì đâu mà khó khăn...

Nói túm lại, đừng được voi thì đòi Hai bà Trưng nhé. Cái gì cũng phải có giới hạn... Được này thì mất kia... Muốn in ít người thì bạn copy Form riêng ra rồi in...
Còn in tự động thì phải theo form....

He he thank kiu bạn nhé. Đỡ hơn bao nhiêu.
 
Điều đó là không thể. Vì form mặc định...là nó lấy số thứ tự TỪ mà nó cộng tiếp theo cho đủ 12 người....
Thì bạn cứ in ra và lấy kéo cắt bỏ đi...chứ gì đâu mà khó khăn...

Nói túm lại, đừng được voi thì đòi Hai bà Trưng nhé. Cái gì cũng phải có giới hạn... Được này thì mất kia... Muốn in ít người thì bạn copy Form riêng ra rồi in...
Còn in tự động thì phải theo form....

À cho mình hỏi thêm sao không có tùy chọn máy in à bạn?
 
Option Explicit
Private Sub CommandButton1_Click()
Dim I&, Tu&, De&
Tu = [K2].Value: De = [L2].Value
For I = Tu To De Step 12
[J2] = I
Sheet1.PrintOut from:=1, To:=1, copies:=1
Next I
End Sub

Dòng lệnh này nghĩa là gì vậy bạn?}}}}}
 
Option Explicit
Private Sub CommandButton1_Click()
Dim I&, Tu&, De&
Tu = [K2].Value: De = [L2].Value
For I = Tu To De Step 12
[J2] = I
Sheet1.PrintOut from:=1, To:=1, copies:=1
Next I
End Sub

Dòng lệnh này nghĩa là gì vậy bạn?}}}}}
bạn không nói dòng nào thì để mình chọn dùm
dòng Next I
next có nghĩa là kế bên đó bạn
 
...khi preview mà muốn out luôn không được phải close rất mất thời gian :).
Bận giờ mới quay lại xem bài...
Giời ơi. Cẩn thận làm cái preview cho người ta test thử nhưng ai ngờ phản tác dụng.
(preview = preview, print =print, không lẽ preview = in)
 
Bận giờ mới quay lại xem bài...
Giời ơi. Cẩn thận làm cái preview cho người ta test thử nhưng ai ngờ phản tác dụng.
(preview = preview, print =print, không lẽ preview = in)

Thì mình preview chứ có nói in đâu. Nhưng khi view vào rồi thì không out luôn được phải close đến khi hết trang in mới out được :=\+
 
Bạn không hiểu gì tìm hiểu từ từ sẽ hiểu.
Preview = xem trước/ xem thử, vậy mình chỉ "thử" chút thôi, bạn yêu cầu nó cho xem hết thì cố mà xem cho hết. Bạn tham thì thâm.
Vào xem rồi mà out luôn thì sao bạn biết nó "đẹp dzai, xinh gái" như nào? Xem đã mắt rồi mới quyết định close nó không chứ.
 
Bạn không hiểu gì tìm hiểu từ từ sẽ hiểu.
Preview = xem trước/ xem thử, vậy mình chỉ "thử" chút thôi, bạn yêu cầu nó cho xem hết thì cố mà xem cho hết. Bạn tham thì thâm.
Vào xem rồi mà out luôn thì sao bạn biết nó "đẹp dzai, xinh gái" như nào? Xem đã mắt rồi mới quyết định close nó không chứ.
Hi hi. Vậy chứ nếu bạn in 100 trang chẳng hạn, trang nào form nó cũng sẽ như nhau và bạn muốn nhìn thử xem khi in ra như thế nào. Như vậy chẳng phải lúc ấy bấm 100 lần vô nghĩa sao. :). Trong word excel mình xem mình có thể next trang nọ trang kia không muốn xem nữa thì có thể thoát ngay. Của bạn đã vào là không ra được nếu chưa bấm hết các trang mình định in :)
 
Mình biết bạn đã mắc công vì vấn đề của mình, mình cũng chỉ có góp ý nhỏ vậy thôi. Cảm ơn bạn nhé !-\\/.
 

Bài viết mới nhất

Back
Top Bottom