-
Report Chỉ cho in 1 lần duy nhất- Xem thoải mái
Noname > 07-10-10, 02:27 PM
Hỏi : Mình đang thiết kế 1 report đặc biệt chỉ cho phép người sử dụng in ra máy in 1 lần duy nhất còn Preview thì thoải mái.
(dongnamnb- Danketoan)
Đáp:
Ý tưởng: Phatnq2002 - DKT
Coding & Demo: Noname: thuthuataccess
Dựa theo Ý tưởng thứ 2 của anh Phatnq2002, Tức là khi xem nó sẽ hiện 1 label cho biết đó không phải là bản chính thức. Còn khi in chính thứ thì ẩn đi, và chỉ cho in chính thức 1 lần rồi khóa lại luôn.
Theo đó mình thiết kế thêm trong table lưu report của bạn 1 ô tên là Isprint kiểu yes/no.
Trong form, ô này bị lock lại và được check Yes khi in bản chính thức!
Trong report, mình tạo 1 label tên là label11 với nội dung sau: "Bản Chỉ để xem không có giá trị phát hành". Và cho thuộc tính Visible= false
Xử lý nút nhấn như sau:
Nút In Thử
Mã:Private Sub cmdReview_Click()
DoCmd.OpenReport "Table1", acPreview
Reports![Table1]![Label11].Visible = True
End Sub
Và nút in chính thức:
Mã:Private Sub cmdPrint_Click()
If Isprint Then
MsgBox " Da in roi, khong in duoc nua"
Else
DoCmd.OpenReport "Table1", acNormal
Isprint.Value = True
Me.Repaint
End If
End Sub
Chúc Thành công -
RE: Report Chỉ cho in 1 lần duy nhất- Xem thoải mái
haquocquan > 08-10-10, 11:39 PM
Nhưng vẫn có vấn đề.
Nếu muốn in tiếp, bấm vào In thử, bấm ctrl+P lại in được bình thường
Phải xử lý cách khác thôi à.
Mình cũng có hướng xử lý vấn đề này. Nhưng còn một số vấn đề chưa làm được. Mình lập TOPIC khác nhờ Noname chỉ thêm cho nhé. -
RE: Report Chỉ cho in 1 lần duy nhất- Xem thoải mái
Noname > 08-10-10, 11:52 PM
À, cái này không phải HQQ ạ, khi bạn in thử, trên bản in nó có ghi thêm 1 dòng: Bản in này không có giá trị phát hành nên bạn in để xem thôi, chứ bản in đó không hợp lệ về mặt pháp lý (ví dụ hóa đơn tự in)
Còn in chính thức (chỉ được 1 lần) thì không có dòng đó! -
RE: Report Chỉ cho in 1 lần duy nhất- Xem thoải mái
haquocquan > 09-10-10, 12:14 AM
OH. Mình phải bỏ check trong Table1 đi thì mới in chính thức được. Thảo nào lần trước in mãi không được.