Membuat Form Laporan Data Siswa

MEMBUAT FORM LAPORAN DATA SISWA

Pastikan kita berada didalam projek MenuUtamaDataNilai yang sudah berisi
Menu, Database dan tiga buah table. Kemudian klik menu Project+Add Form

 
Pastikan pilihan pada Tab New dan icon Form, lalu klik tombol Open.

Tambahkan Form2 dengan mengklik menu Project + Add Form, kemudian atur
propertinya sebagai berikut :


Klik ganda didalam Form yang tidak berisi object, maka akan tampil jendela
Code. Masukkan kode dibawah ini.
Private Sub CetakLayarSiswa()
Dim mgrs As String
Dim mno, mhal, mbaris As Integer
Dim mjumlah As Double
FrmCetakLayarSiswa.Font = "Courier New"
Data1.Recordset.MoveFirst
mno = 0
Do While Not Data1.Recordset.EOF
FrmCetakLayarSiswa.Print
FrmCetakLayarSiswa.Print
FrmCetakLayarSiswa.FontBold = True
FrmCetakLayarSiswa.FontSize = 10
FrmCetakLayarSiswa.Print Tab(10); "Data Siswa-Siswi"
FrmCetakLayarSiswa.Print Tab(10); "Tanggal Cetak :"; Format(Date, "DDMM-
YYYY")
FrmCetakLayarSiswa.FontBold = False
FrmCetakLayarSiswa.Print
mgrs = String$(70, "-")
FrmCetakLayarSiswa.Print Tab(1); mgrs
FrmCetakLayarSiswa.Print Tab(1); "Nis";
FrmCetakLayarSiswa.Print Tab(7); "Nama Siswa";
FrmCetakLayarSiswa.Print Tab(19); "Kelas";
FrmCetakLayarSiswa.Print Tab(25); "J.Kelamin";
FrmCetakLayarSiswa.Print Tab(35); "Tgl.Lahir";
FrmCetakLayarSiswa.Print Tab(45); "Tpt.Lahir";
FrmCetakLayarSiswa.Print Tab(55); "Alamat";
FrmCetakLayarSiswa.Print Tab(65); "Telpon"
FrmCetakLayarSiswa.Print Tab(1); mgrs
mbaris = 0
Do While Not Data1.Recordset.EOF And mbaris <= 30
mno = mno + 1
FrmCetakLayarSiswa.Print Tab(1); Data1.Recordset!Nis;
FrmCetakLayarSiswa.Print Tab(7); Data1.Recordset!Namasiswa;
FrmCetakLayarSiswa.Print Tab(20); Data1.Recordset!Kelas;
FrmCetakLayarSiswa.Print Tab(25); Data1.Recordset!Jeniskelamin;
FrmCetakLayarSiswa.Print Tab(35); Data1.Recordset!Tanggallahir;
FrmCetakLayarSiswa.Print Tab(45); Data1.Recordset!Tempatlahir;
FrmCetakLayarSiswa.Print Tab(55); Data1.Recordset!Alamat;
FrmCetakLayarSiswa.Print Tab(65); Data1.Recordset!Telp
mbaris = mbaris + 1
Data1.Recordset.MoveNext
Loop
FrmCetakLayarSiswa.Print Tab(1); mgrs
FrmCetakLayarSiswa.Print Tab(20); "Jumlah";
FrmCetakLayarSiswa.Print Tab(30); rkanan(mno, "###,###");
FrmCetakLayarSiswa.Print Tab(40); "orang"
FrmCetakLayarSiswa.Print Tab(1); mgrs
Loop
End Sub
Private Sub cetakkeprinter()
Dim mgrs As String
Dim mno, mhal, mbaris As Integer
Dim mjumlah As Double
Printer.Font = "Courier New"
Data1.Recordset.MoveFirst
mno = 0
Do While Not Data1.Recordset.EOF
Printer.Print
Printer.Print
Printer.FontBold = True
Printer.FontSize = 10
Printer.Print Tab(10); "Data Siswa-Siswi"
Printer.Print Tab(10); "Tanggal Cetak :"; Format(Date, "DD-MM-YYYY")
Printer.FontBold = False
Printer.Print
mgrs = String$(70, "-")
Printer.Print Tab(1); mgrs
Printer.Print Tab(1); "Nis";
Printer.Print Tab(7); "Nama Siswa";
Printer.Print Tab(19); "Kelas";
Printer.Print Tab(25); "J.Kelamin";
Printer.Print Tab(35); "Tgl.Lahir";
Printer.Print Tab(45); "Tpt.Lahir";
Printer.Print Tab(55); "Alamat";
Printer.Print Tab(65); "Telpon"
Printer.Print Tab(1); mgrs
mbaris = 0
Do While Not Data1.Recordset.EOF And mbaris <= 30
mno = mno + 1
Printer.Print Tab(1); Data1.Recordset!Nis;
Printer.Print Tab(7); Data1.Recordset!Namasiswa;
Printer.Print Tab(20); Data1.Recordset!Kelas;
Printer.Print Tab(25); Data1.Recordset!Jeniskelamin;
Printer.Print Tab(35); Data1.Recordset!Tanggallahir;
Printer.Print Tab(45); Data1.Recordset!Tempatlahir;
Printer.Print Tab(55); Data1.Recordset!Alamat;
Printer.Print Tab(65); Data1.Recordset!Telp
mbaris = mbaris + 1
Data1.Recordset.MoveNext
Loop
Printer.Print Tab(1); mgrs
Printer.Print Tab(20); "Jumlah";
Printer.Print Tab(30); rkanan(mno, "###,###");
Printer.Print Tab(40); "orang"
Printer.Print Tab(1); mgrs
Loop
End Sub
Private Function rkanan(NData, CFormat) As String
rkanan = Format(NData, CFormat)
rkanan = Space(Len(CFormat) - Len(rkanan)) + rkanan
End Function

122.Klik ganda didalam CommandButton yang berjudul Cetak ke layar, maka akan
tampil jendela Code. Masukkan kode dibawah ini.

Private Sub CmdCetakkeLayar_Click()
FrmCetakLayarSiswa.Show
CetakLayarSiswa
End Sub

123.Klik ganda didalam CommandButton yang berjudul Cetak ke printer, maka akan
tampil jendela Code. Masukkan kode dibawah ini.

Private Sub CmdCetakkePrinter_Click()
pesan = MsgBox("Apakah printer sudah siap cetak ?", vbYesNo, "Persiapan")
If pesan = vbYes Then
cetakkeprinter
Printer.EndDoc
Else
pesan = MsgBox("Siapkan dulu printernya ?", 0, "Persiapan")
End If
End Sub

124.Klik ganda didalam CommandButton yang berjudul Tutup, maka akan tampil
jendela Code. Masukkan kode dibawah ini.

Private Sub Command3_Click()
Unload Me
FrmMenuUtama.Enabled = True
FrmMenuUtama.SetFocus
End Sub