[belajar-access] Re: Cetak Secara langsung ke Printer

----- Original Message -----
From: "jkssbma" <jkssbma@yahoo.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, August 25, 2010 8:04 AM
Subject: [belajar-access] Re: Cetak Secara langsung ke Printer

>
> Ternyata dengan membaca buku VB6 dan membaca artikel di Byte.com , saya
baru mengetahui bahwa metode open dapat digunakan pula untuk mencetak
langsung ( dengan Port Paralel dan Serial , sedangkan USB belum didukung;
alasannya tehnologi .NET lebih cocok menangani port USB )
>
> Silakan saja download di [Files][jkssbma][cetakformat] dengan nama file
[cetakLPT.mdb].
>
> Bagi mereka yang lebih mahir dengan VB6 , tentu dapat dikembangkan
lagi.Saya harapkan untuk hasil modifikasinya di upload dengan nama tambahan
[cetakLPT_modif(x).mdb] . (x) angka desimal urutan modif, misal
[cetakLPT_modif1.mdb]
>
> Salam Sejahtera

> --- In belajar-access@yahoogroups.com, "jkssbma" <jkssbma@...> wrote:
> >
> > Dibawah ini cuplikan modul yang saya tambahkan pada aplikasi access pada
[files] [jkssbma] [cetakFormat] dengan file [Validasi_modif1.accdb].
> >
> > Sub panggilreport()
> > Dim rpt As Report_validasi
> > Set rpt = Report_validasi
> >
> > rpt.Filter = "NoPelanggan= '" & "B00001'"
> > rpt.FilterOn = True
> > ' rpt.FilterOnLoad = True
> >
> > rpt.Printer.Copies = 1
> > rpt.Printer.PrintQuality = acPRPQDraft
> >
> > rpt.Printer.Orientation = acPRORLandscape
> > 'rpt.AllowReportView = True
> > 'rpt.Visible = True
> > rpt.Visible = False
> > Set rpt = Nothing
> > End Sub

> > '=====
> > ADa beberapa pertanyaan :
> > 1. Kenapa tak bisa menggunakan metode print, sedangkan saya ingin
mencetak ke printer atau printpreview
> > 2. Begaimana cara untuk menghitung record hasil filter sebagai
reocrdsource pada report ? kalau me.count menunjukkan halaman yang akan
dicetak ? (betul?)
> >
> > Salam sejahtera
> >
> >
> > --- In belajar-access@yahoogroups.com, "jkssbma" <jkssbma@> wrote:
> > >
> > >
> > > mencari di arsip maksudnya di message di komunitas ini
('Belajar-Access') atau di situs tertentu ? Saya sih mencoba menggunakan
report bultin Access dan menambahkan page-break. Tetapi kenapa page-break
( jika report di print-preview ) adanya dihalaman berikutnya ( jadi ada 2
halaman ,saya sih belum mencoba mencetaknya ke printer ).
> > > Oh ya penggunaan property PrtMip untuk mengatur pencetakan apakah
hanya berlaku di mode Design seperti contoh berikut
> > >
> > > '== saya ambil dari Help Access dgn KEY --> 'prtmip'
> > > Private Type str_PRTMIP
> > > strRGB As String * 28
> > > End Type
> > >
> > > Private Type type_PRTMIP
> > > xLeftMargin As Long
> > > yTopMargin As Long
> > > xRightMargin As Long
> > > yBotMargin As Long
> > > fDataOnly As Long
> > > xWidth As Long
> > > yHeight As Long
> > > fDefaultSize As Long
> > > cxColumns As Long
> > > yColumnSpacing As Long
> > > xRowSpacing As Long
> > > rItemLayout As Long
> > > fFastPrint As Long
> > > fDatasheet As Long
> > > End Type
> > >
> > >
> > > Dim PrtMipString As str_PRTMIP
> > > Dim PM As type_PRTMIP
> > > Dim rpt As Report
> > > Const PM_HORIZONTALCOLS = 1953
> > > Const PM_VERTICALCOLS = 1954
> > >
> > > ' Open the report.
> > > DoCmd.OpenReport strName, acDesign
> > > Set rpt = Reports(strName)
> > > PrtMipString.strRGB = rpt.PrtMip
> > > LSet PM = PrtMipString
> > >
> > > ' Create two columns.
> > > PM.cxColumns = 1 '2
> > >
> > > ' Set 0.25 inch between rows.
> > > PM.xRowSpacing = 0.25 * 1440
> > >
> > > ' Set 0.5 inch between columns.
> > > ' PM.yColumnSpacing = 0.5 * 1440
> > > 'PM.rItemLayout = PM_HORIZONTALCOLS
> > >
> > > ' Set margins.
> > > PM.xLeftMargin = 1 * 1440
> > > PM.yTopMargin = 0.25 * 1440
> > > PM.xRightMargin = 1 * 1440
> > > PM.yBotMargin = 0.25 * 1440
> > >
> > >
> > > ' Update property.
> > > LSet PrtMipString = PM
> > > rpt.PrtMip = PrtMipString.strRGB
> > > rpt.AllowReportView = True
> > >
> > >
> > > Set rpt = Nothing
> > >
> > > '=====
> > > kapan report dapat di cetak ke mode preview atau printer. karena tidak
ada methode untuk mencetak report ( atau saya belum menemukannya ).
> > >
> > > Salam sejahtera
> > >
> > >
> > > --- In belajar-access@yahoogroups.com, aksan kurdin <aksan.kurdin@>
wrote:
> > > >
> > > > Coba cari di arsip, mengenai print to lpt
> > > >
> > > > Aksan kurdin
> > > >
> > > > On Aug 18, 2010 3:52 PM, "jkssbma" <jkssbma@> wrote:
> > > >
> > > >
> > > >
> > > > Maksud saya untuk validasi bon pembelian ( kadang untuk barang
tertentu pada
> > > > Bon ).
> > > > Untuk pembayaran ternyata ada yang menggunakan report dengan kertas
struk (
> > > > lebar tetap panjang tak terbatas , tergantung panjang gulungan )
> > > >
> > > >
> > > >
> > > > --- In belajar-access@yahoogroups.com, "jkssbma" <jkssbma@> wrote:
> > > > >
> > > > > Tentu semjua tahu jika d...
> > > >
> > >
> >
>
>
>
>
> ------------------------------------
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>
> <*> To visit your group on the web, go to:
> http://groups.yahoo.com/group/belajar-access/
>
> <*> Your email settings:
> Individual Email | Traditional
>
> <*> To change settings online go to:
> http://groups.yahoo.com/group/belajar-access/join
> (Yahoo! ID required)
>
> <*> To change settings via email:
> belajar-access-digest@yahoogroups.com
> belajar-access-fullfeatured@yahoogroups.com
>
> <*> To unsubscribe from this group, send an email to:
> belajar-access-unsubscribe@yahoogroups.com
>
> <*> Your use of Yahoo! Groups is subject to:
> http://docs.yahoo.com/info/terms/
>