struk penjualan one to many

Option Explicit
Dim Sw, Nom, Sw2, Nom2 As Integer
Dim sql As String


Private Sub Form_Activate()
Nom = 1
Sw = 1

FmPreviewPenjualan.Show
Call CetakLayar
End Sub

Private Sub Form_Load()
Move (Screen.Width - Width) / 2, _
(Screen.Height - Height) / 3
Call opendb
End Sub

Private Sub CetakLayar()
Dim Grs As String

Set rs_cetakpenjualan = New ADODB.Recordset

sql = "SELECT keluar.KODE_PENGELUARAN, " _
& " keluar.TGL_KELUAR,PELANGGAN.NAMA_CUST, " _
& " DET_KELUAR.KODE_BARANG, " _
& " BARANG.NAMA_BARANG,BARANG.HARGA,DET_KELUAR.JUMLAH_KELUAR, " _
& " DET_KELUAR.BAYAR " _
& " FROM keluar, DET_KELUAR, " _
& " BARANG, PELANGGAN WHERE " _
& " keluar.KODE_PENGELUARAN=DET_KELUAR.KODE_PENGELUARAN " _
& " AND keluar.KODE_CUST=PELANGGAN.KODE_CUST " _
& " AND DET_KELUAR.KODE_BARANG = BARANG.KODE_BARANG " _
& " AND keluar.KODE_PENGELUARAN='" & Text1.Text & "'"

rs_cetakpenjualan.Open sql, conn, _
adOpenDynamic, adLockOptimistic, adCmdText

With rs_cetakpenjualan
.MoveFirst
Do While Not .EOF
If Sw = 1 Then
FmPreviewPenjualan.FontBold = True
FmPreviewPenjualan.FontSize = 14
FmPreviewPenjualan.Print
FmPreviewPenjualan.Print "Data Penjualan Barang"
Grs = String$(92, "+")
FmPreviewPenjualan.FontBold = False
FmPreviewPenjualan.FontSize = 10
FmPreviewPenjualan.Print
FmPreviewPenjualan.Print Tab(0); Grs;
FmPreviewPenjualan.Print Tab(2); "No";
FmPreviewPenjualan.Print Tab(8); "Kode";
FmPreviewPenjualan.Print Tab(23); "Nama";
FmPreviewPenjualan.Print Tab(38); "Harga";
FmPreviewPenjualan.Print Tab(48); "Jumlah";
FmPreviewPenjualan.Print Tab(58); "Bayar";
FmPreviewPenjualan.Print Tab(8); "Barang";
FmPreviewPenjualan.Print Tab(23); "Barang";
FmPreviewPenjualan.Print Tab(38); "Barang";
FmPreviewPenjualan.Print Tab(48); "Barang";
' FmPreviewPenjualan.Print Tab(58); "Barang";
FmPreviewPenjualan.FontBold = False
FmPreviewPenjualan.Print Tab(0); Grs;
Sw = 0
End If
FmPreviewPenjualan.Print Tab(3); Format(Nom, "###");
FmPreviewPenjualan.Print Tab(8); ![KODE_BARANG];
FmPreviewPenjualan.Print Tab(23); ![NAMA_BARANG];
FmPreviewPenjualan.Print Tab(38); _
Format(![HARGA], "Rp #,#");
FmPreviewPenjualan.Print Tab(48); ![JUMLAH_KELUAR];
FmPreviewPenjualan.Print Tab(58); _
Format(![bayar], "Rp #,#");
Text2.Text = Val(![bayar]) + Val(Text2.Text)
FmPreviewPenjualan.Print
.MoveNext
Nom = Nom + 1
Loop
FmPreviewPenjualan.Print Tab(0); Grs;
FmPreviewPenjualan.Print Tab(48); "Total = "; Text2.Text;
End With
End Sub

Private Sub Cetak()
Dim Grs As String

Set rs_cetakpenjualan = New ADODB.Recordset
sql = "SELECT Penjualan.No_FakJual, " _
& " Penjualan.Tgl_FakJual,Pelanggan.Nm_Pelanggan, " _
& " Pengguna.Nama_User,DetPenjualan.Kd_Barang, " _
& " Barang.Nm_Barang,DetPenjualan.Harga_Jual, " _
& " DetPenjualan.Jumlah_Jual, DetPenjualan.Total_Jual" _
& " FROM Penjualan, DetPenjualan, " _
& " Barang, Pengguna, Pelanggan WHERE " _
& " Penjualan.No_FakJual=DetPenjualan.No_FakJual " _
& " AND Penjualan.Kd_Pelanggan=Pelanggan.Kd_Pelanggan " _
& " AND Penjualan.Kd_Pengguna=Pengguna.Kd_Pengguna " _
& " AND DetPenjualan.Kd_Barang = Barang.Kd_Barang " _
& " AND Penjualan.No_FakJual='" & TxtNoFaktur.Text & "'"


rs_cetakpenjualan.Open sql, conn, _
adOpenDynamic, adLockOptimistic, adCmdText

With rs_cetakpenjualan
.MoveFirst
Printer.CurrentX = 0
Printer.CurrentY = 0
Do While Not .EOF
If Sw2 = 1 Then
Printer.FontBold = True
Printer.FontSize = 14
Printer.Print
Printer.Print "Data Penjualan Barang"
Grs = String$(92, "+")
Printer.FontBold = False
Printer.FontSize = 10
Printer.Print
Printer.Print Tab(0); Grs;
Printer.Print Tab(2); "No";
Printer.Print Tab(8); "Kode";
Printer.Print Tab(18); "Nama";
Printer.Print Tab(38); "Harga";
Printer.Print Tab(48); "Jumlah";
Printer.Print Tab(58); "Total";
Printer.Print Tab(8); "Barang";
Printer.Print Tab(18); "Barang";
Printer.Print Tab(38); "Barang";
Printer.Print Tab(48); "Barang";
Printer.Print Tab(58); "Barang";
Printer.FontBold = False
Printer.Print Tab(0); Grs;
Sw2 = 0
End If
Printer.Print Tab(3); Format(Nom, "###");
Printer.Print Tab(8); ![Kd_Barang];
Printer.Print Tab(18); ![Nm_Barang];
Printer.Print Tab(38); _
Format(![Harga_Jual], "Rp #,#");
Printer.Print Tab(48); ![Jumlah_Jual];
Printer.Print Tab(58); _
Format(![Total_Jual], "Rp #,#");
.MoveNext
Nom2 = Nom2 + 1
Loop
Printer.Print Tab(0); Grs;
End With
Printer.NewPage
End Sub

Private Sub TbPreview_Click()
Nom = 1
Sw = 1

FmPreviewPenjualan.Show
Call CetakLayar
End Sub

Private Sub TbCetak_Click()
Nom2 = 1
Sw2 = 1

Call Cetak
Printer.EndDoc
End Sub

Private Sub TbKeluar_Click()
FormUtama.Enabled = False
frmpenjualan.Enabled = True
Unload Me
End Sub