Private Sub cmdPrint_Click()
With CrystalReport1
.SelectionFormula = "{Tabel.TglPinjam} in Date (" &
Format$(txtTglPinjam.Text, "yyyy,mm,dd") & ") and
{Tabel.kodePinjam} = '" & txtKodePinjam.Text & "'"
.RetrieveDataFiles
.WindowState = crptMaximized
.Action = 1
End With
End Sub
--- In [email protected], "mustapa_mail"
<[EMAIL PROTECTED]> wrote:
>
> aku mau nanya pada yang pintar nih, soalnya aku baru belajar vb.
> 1. gmn cara membuat laporan dengan cristal report, berdasarkan
laporan
> harian, bulanan dan tanggal, soalnya aku buat program
> perpustakaan.kalo bisa disertakan kode programnya lewat vb.
>
> thank's
>
