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