Private Sub CMDCETAK_Click()
CR.SelectionFormula = "{view_beli_perfaktur.faktur}= '" & txtfaktur.Text & "' "
CR.ReportFileName = App.Path & "\Laporan\Laporan Pembelian Per Faktur.rpt"
CR.WindowState = crptMaximized
CR.RetrieveDataFiles
CR.PrintReport
End Sub
Tidak ada komentar:
Posting Komentar
hay friend... sebelum exit, jgn lupa tinggalkan comment dulu ya...
kalau mau bertanya bisa tulis komentar atau email/fb ke: aranama@ymail.com
thank you...