PETA BSI KRAMAT TEMPAT SIDANG TA

TAMPILAN PROGRAM PEMBAYARAN

ALAHAMDULILLAH HIROBBIL ALAMIIIN
Akhirnya Program yang ane buat selesai walaupun masih jauh dari sempurna

Tampilannya Nyusul ( COMING SOON )

Cara Cetak Struk atau Print untuk VB 6.0

nPrivate Sub CmdCetakPutraQincay_Click()
With frmGajiPutraQincay
Printer.FontBold = True
Printer.FontSize = 10
Printer.Print
Printer.Print
Printer.Print
Printer.Print Tab(55); "GAJI KARYAWAN"
Printer.FontBold = True
Printer.Print
Printer.Print Tab(35); "-----------------------------------------------------------------------------"
Printer.FontBold = False
Printer.FontUnderline = True
Printer.Print Tab(37); "Struk Gaji"
Printer.FontUnderline = False
Printer.Print Tab(37); "-----------------------------------------------------------------------------"
Printer.Print
Printer.FontBold = False
Printer.Print Tab(37); "No STruk"; Tab(55); ":"; Tab(57); .TxtKdGajiPutraqincay
Printer.Print Tab(37); "Kode Pegawai"; Tab(55); ":"; Tab(57); .CmbKdPegawaiPutraQincay
Printer.Print Tab(37); "Tanggal"; Tab(55); ":"; Tab(57); .DTTanggalPutraQincay
Printer.Print Tab(37); "Gaji Pokok"; Tab(55); ":"; Tab(57); .TxtGapokPutraQincay
Printer.Print Tab(37); "Bonus"; Tab(55); ":"; Tab(57); .TxtBonusPutraQincay
Printer.Print Tab(37); "Total"; Tab(55); ":"; Tab(57); .TxtTotalPutraQincay
Printer.Print
Printer.Print Tab(37); "-----------------------------------------------------------------------------"
Printer.Print
Printer.Print Tab(82); "Tertanda"
Printer.Print
Printer.Print
Printer.Print
Printer.Print
Printer.Print Tab(80); "_____________"
Printer.FontBold = False
Printer.EndDoc
End With
End Sub

If Text1.Text = "" Or Text2.Text = "" Then MsgBox "Data Yang Anda Masukkan Belum Lengkap", vbInformation, "Warning" Else CrystalReport1.ReportFileName = App.Path & "\lap-data-siswa.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.WindowState = crptMaximized CrystalReport1.Formulas(0) = "namakepsek='" & Text1.Text & "'" CrystalReport1.Formulas(1) = "nip='" & Text2.Text & "'" CrystalReport1.Action = 0 pesan: If (Err.Number = 20533) Then MsgBox "Data Base Tidak Bisa Diakses...!", vbInformation, App.Title Exit Sub End If End If

Struk atau Print Laporan untuk VB 6.0