bikin ukuran kertas yang baru dulu
1. start-printers and faxs
2. klik nama printer-nya
3. file-server properties
4. create a new form - tentukan ukuran kertas dan marginnnya
5. simpan
tapi menurut saya apabila print report access menggunakan printer dot
matrix, saya merasakan waktu cetak terlalu lambat. sehingga untuk mengatasi
masalah supaya tidak lambat, saya bikin report sendiri dengan Mode DOS
(jadul), logikanya sederhana cetak dulu ke TXT lalu print TXT menggunakan
Internal Command DOS.
contohnya ini:
Sub CetakNotaGrosir()
Dim FilePath, FileBat
FilePath = "C:\Temp\Grosir.TXT"
FileBat = "C:\Temp\Grosir.Bat"
Open FileBat For Output As #1
Print #1, "@echo off"
'Print #1, "Mode lpt1 = com1"
'Print #1, "mode com1:9600,n,8,1"
Print #1, "Type " & FilePath & " > PRN"
Close #1
Open FilePath For Output As #2
Print #2, "SWALAYAN TIMBUL JAYA"
Print #2, "JL. GAJAH MADA 145 - GENTENG Genteng, " &
Format(TanggalJual, "dddd dd mmmm yyyy")
Print #2, "TELP. (0333)-845597 Kepada Yth."
Print #2, " " &
Kode_Kustomer.Column(0)
Print #2, " " & ALAMAT
Print #2, "No. Nota : " & FakturJual
'
12345678901234567890123456789012345678901234567890123456789012345678901234567890
' 0 1 2 3 4 5
6 7 8
Print #2,
"==============================================================================="
Print #2, "No. Nama Barang Sat Banyak
Harga Disk Jumlah"
Print #2,
"==============================================================================="
With DetailJual.Form
RecordAwal DetailJual.Form
For i = 1 To JREC
i1 = Left(!KODE_STOK & Space(13), 13)
i2 = Left(Trim(!Nama.Column(0)) & Space(28), 28) & " "
i3 = Left(!Satuan & Space(3), 3) & " "
i4 = Right(Space(6) & Format(!JumlahJual, "##,###"), 6)
i5 = Right(Space(12) & Format(!HargaJual, "##,###"), 12)
i6 = Right(Space(6) & Format(!DiskonRP, "##,###"), 6)
i7 = Right(Space(9) & Format((!DetailTotal), "##,###"), 9)
Print #2, i1 & i2 & i3 & i4 & i5 & i6 & i7
RecordMaju DetailJual.Form
Next
kurang = 0
If i < 13 Then kurang = 13 - i
If i > 13 Then kurang = 21 - (i Mod 13)
For i = 1 To kurang
Print #2, ""
Next
Print #2,
"==============================================================================="
Print #2, " TOTAL :" &
Right(Space(26) & Format(Grand_Total, "##,###"), 26)
Print #2, " BAYAR :" &
Right(Space(26) & Format(TotalBayar, "##,###"), 26)
Print #2, " KEMBALI :" &
Right(Space(26) & Format(Kembali, "##,###"), 26)
Print #2, "
PENERIMA HORMAT KAMI "
Print #2, " JML ITEM = " & JREC
End With
Close #2
Shell FileBat, vbHide
End Sub
Mungkin teman-teman access mania punya cara yang lebih singkat lagi untuk
cetak pd dot matrix supaya tidak lambat.. ayooo dong di share....
makasih
dewok-jbr
Pada tanggal 29/01/08, adiproo <[EMAIL PROTECTED]> menulis:
>
> Oke deh..
>
> Setelah memmpelajari contoh yang dibuat pak SeeGet oke sip-lah
> Rencananya saya mau buat cetak kwitansi pembayarannya juga
> Pakai printer dot metrik, kertasnya pake continous forms
> ukuran kertasnya sebesar kwitansi pembayaran PLN.
> Yang saya masih bingung seting print dan kertasnya gimana
> desain reportnya gimana pak...
>
> Sharing lagi dong pendapatnya.
> Terima kasih
>
> Adipro
> :D
>
> Asyik juga dereng lagu Wulan Jameela
> ringkikan Wulan ngak tahaaaan...
>
> :D ---
>
>
> --- In [email protected] <belajar-access%40yahoogroups.com>,
> "SeeGet" <[EMAIL PROTECTED]> wrote:
> >
> > gpp nyantai aj pk :D
> >
> > udah saya kirim lg ...
> >
> > ya saya jg jd bisa ngerti masalah tukang2x koran buat melengkapi
> > referensi jg kalo misalkan suatu saat ada pekerjaan tentang ini
> >
> > kalo ada yg mo di konsultasikan lg
> > silahkan aj pk ...
> >
> >
> >
> > ----- Original Message -----
> > From: adiproo
> > To: [email protected] <belajar-access%40yahoogroups.com>
> > Sent: Monday, January 28, 2008 8:12 PM
> > Subject: [belajar-access] Re: Tolong dikoreksi struktur table
> tangihan pelanggan, project tukang koran
> >
> >
> > Pak SeeGet,
> > Saya tidak bisa mendownloadnya...
> > Tolong kirimi lagi ke mail saya.
> >
> > Terima kasih pak
> > ngerepoti.
> >
> > Adipro
> >
> > --- In [email protected] <belajar-access%40yahoogroups.com>,
> "SeeGet" <seegetphe@> wrote:
> > >
> > > bisa dicoba simulasinya di file
> > > attachment saya sisipkan ini pk
> > >
> > >
> > > ----- Original Message -----
> > > From: adiproo
> > > To: [email protected] <belajar-access%40yahoogroups.com>
> > > Sent: Sunday, January 27, 2008 8:43 PM
> > > Subject: [belajar-access] Re: Tolong dikoreksi struktur table
> > tangihan pelanggan, project tukang koran
> > >
> > >
> > >
> > >
> > > Oke terima kasih
> > > masukkannya Pak Devi dan Pak SeeGet.
> > >
> > > Terus untuk menampilkan tagihan setiap bulannya gimana?
> > > dan kalau ada yang bayar 3 bulan dimuka gimana?
> > > kalau memakai sistem katalog per pelanggannya.
> > >
> > > Terima kasih
> > > adipro
> > >
> >
>
>
>
