ACCESS FEED: [belajar-access] Re: Even on Cetak ke printer

Kamis, 14 Februari 2013

[belajar-access] Re: Even on Cetak ke printer

Pagi pak Didik, bagaimana khabarnya?

Kalau sy biasa buat dgn cara sbb:

1. Pada form sisipkan field bertype text, mis.beri nama: NoCetak
2. Pada form yg sama buat command button "Simpan"
lalu pada event OnClick ketik kode berikut:

Private Sub Simpan_Click()
On Error Resume Next
Dim urutctk As String
If Me![NoCetak] < 1 Then
urutctk = Me![NoCetak] + 1
Me![NoCetak].Value = urutctk
Else
End If
'baris perintah selanjutnya
End Sub

3. Masih pada form yg sama, ketik kode berikut pada tombol utk mencetak, misalnya bernama: "Cetakan"

Private Sub Cetakan_Click()
If Me![NoCetak].Value < 1 Then
MsgBox "Klik tombol SIMPAN terlebih dulu", , "SIMPAN DULU..!"

Exit Sub
End If

'baris perintah selanjutnya

End Sub

Jadi saat user mengetik tombol perintah, maka log pencetakan bertambah 1, shg berapa kali user mencetak akan terdeteksi. Ini memang salah satu cara yg dpt diterapkan utk mencegah/melihat sampai berapa kalikah user mencetak no.nota yg sama.

Best Regards,

Agung Hend

--- In belajar-access@yahoogroups.com, Didik Supriyadi wrote:
_______________________________
> Gimana ya cara membuat log ketika report yang ditampilkan dipreview telah dicetak ke printer?
> mohon pencerahannya dari para master access
>