Jangan pakai doc mas. Coba search di arsip milis, sudah ada kok cara cetak struk
Kira-2 begini bunyinya :-) : /'Open "LPT1:" For Output As #1 'Print #1, Tab(0) 'Print #1, "Toko IKASI - Astra International" 'Print #1, "AMDI A Lantai 1 - 6522555 Ext. 130" 'Print #1, "------------------------------------" 'Print #1, "No. : "; NoFaktur; Tab(17); Format(Now, "DD/MM/YY-HH:MM:SS 'AM/PM") 'Print #1, "NPK : "; "#" & Trim(rsData!NPK_PEMBELI) & "#"; Tab(20); "Kasir: " '"; Operator 'Print #1, " " ' 'For PosData = 0 To rsJmlData!Jml - 1 ' 'Print #1, Tab(0); Left(rsData!MERK, 15); Tab(18); 'Kanan(Format(rsData!QTY_BELI, "#,#0"), 3); Tab(23); 'Kanan(Format(rsData!QTY_BELI * rsData!H_JUAL, "#,#0"), 9) ' Print #1, Tab(0); Left(rsData!MERK, 15); Tab(16); 'Kanan(Format(rsData!QTY_BELI, "#,#0"), 2); Tab(19); 'Kanan(Format(rsData!H_JUAL), 6); Tab(27); Kanan(Format(rsData!QTY_BELI * 'rsData!H_JUAL, "#,#0"), 8) ' TotalBelanjaan = TotalBelanjaan + (rsData!QTY_BELI * rsData!H_JUAL) ' rsData.MoveNext 'Next PosData ' 'rsJmlData.Close ' 'SQL = "Select sum(QTY_BELI) as JML from Transaksi where NO_FAK=" & NoFaktur 'rsJmlData.Open SQL, Cn 'rsData.MoveFirst ' 'Print #1, " " 'Print #1, "Items : "; Format(rsJmlData!Jml, "#,#0"); Tab(15); "Total : "; 'Kanan(Format(TotalBelanjaan, "#,#0"), 10) 'Print #1, Tab(15); "Bayar : "; Kanan(Format(rsData!Bayar, "#,#0"), 10) 'Print #1, Tab(15); "Kembali : "; Kanan(Format(rsData!Bayar - TotalBelanjaan, '"#,#0"), 10) 'Print #1, " " 'Print #1, "Note: Barang yang sudah dibeli tidak" 'Print #1, " dapat ditukar / dikembalikan." 'Print #1, " " 'Print #1, " *** T E R I M A K A S I H ***" 'Print #1, " " 'Print #1, " " 'Print #1, " " 'Print #1, " " 'Print #1, Chr(0) 'Close #1/ Vavai http://blog.vavai.com widay nila wrote: > > tolong dong > > aku pakek Perintah > > Printer.FontName = "Arial" > Printer.FontSize = "8" > Printer.Print Text10.Text > Printer.EndDoc > > isi dari text10 adalah > > " TOKO SAKTI " & vbCrLf & _ > " BOGOR" & vbCrLf & _ > " =========================" & vbCrLf & _ > " Nama Barang Qty Harga " & vbCrLf & _ > " --------------------------------------------------" & vbCrLf & _ > " Dodol garut 1 1000 " > > pertanyaan saya bagai mana cara memberhentikan kertas setelah semua > transaksi di print > soalnya setiap ngeprint kalo barangnya cuma satu printernya masih > narik kertas > panjangnya kurang lebih seperti kerta kuarto > > kan boros kertas betul? > > tolong yahhh makasih banyak >
