berikut saya modifikasi kode behind report:
Private Sub Report_Page()
'Me.ScaleMode = 0.8 <--- tidak ada mode ini
Me.ScaleMode = 1
Me.ForeColor = 0
'HORI
Garis Me, 2.2, 0.5, 193.3, 0.5 'kop atas
Garis Me, 2.2, 25, 193.3, 25 'kop bawah
Garis Me, 33, 10, 193.3, 10 'kop bawah
Garis Me, 150, 5, 193.3, 5 'kop bawah
Garis Me, 2.2, 50, 193.3, 50 'header atas
Garis Me, 2.2, 55.5, 193.3, 55.5 'header bawah
Garis Me, 2.2, 200, 193.3, 200 'paling bawah3
Garis Me, 150, 216, 193.3, 216 'bawah PPN
Garis Me, 2.2, 225, 193.3, 225 'paling bawah2
Garis Me, 2.2, 262, 193.3, 262 'paling bawah1
'VERTI
Garis Me, 2.2, 0.5, 2.2, 262 'paling kiri
Garis Me, 17, 50, 17, 200 'no kanan
Garis Me, 35, 50, 35, 200 'kode kanan
Garis Me, 105, 50, 105, 200 'nabar kanan
Garis Me, 135, 50, 135, 200 'harga kanan
Garis Me, 150, 50, 150, 225 'qty kanan
Garis Me, 33, 0.5, 33, 25 'dari kiri
Garis Me, 150, 0.5, 150, 25 'dari kanan
Garis Me, 193.3, 0.5, 193.3, 262 'paling kanan
End Sub
Dan berikut adalah modul basGaris:
Option Compare Database
Option Explicit
Const C_TWIPS2MM As Single = 56.7 '567 TWIPS = 1 cm,
'kalau pake scalemode = 1
Public Sub Garis(objRpt As Object, x1 As Single, y1 As Single, x2 As Single, y2
As Single)
objRpt.Line (x1 * C_TWIPS2MM, y1 * C_TWIPS2MM)-(x2 * C_TWIPS2MM, y2 *
C_TWIPS2MM)
End Sub
Dari help access 2007:
The ScaleMode property uses the following settings.
Setting Description
0 / Custom values used by one or more of the ScaleHeight, ScaleWidth,
ScaleLeft, and ScaleTop properties
1 / (Default) Twips
2 / Points
3 / Pixels
4 / Characters (horizontal = 120 twips per unit; vertical = 240 twips per unit)
5 / Inches
6 / Millimeters
7 / Centimeters
aksan kurdin
--- In [email protected], "aksankurdin" <aksan.kur...@...> wrote:
>
> Cara 'rajin' ...
> :)
>
> very good ....
>
>
> aksan kurdin
>
> --- In [email protected], suka access <suka.access@> wrote:
> >
> > Bang Aksan,
> >
> > Ini saya pernah buat, tinggal ngatur sub totalnya ajah
> > regards,
> > suka.access
> > Pada 4 Mei 2010 08:32, aksankurdin <aksan.kurdin@> menulis:
> >
> > >
> > >
> > > Untuk data detail yang kecil, kurang dari satu halaman, report itu memang
> > > mantap.
> > > Tapi coba kalau didin tambahkan data yang melebih satu halaman, report itu
> > > langsung rusak.
> > >
> > > Ayo, tantangan bagi member lain, bagaimana mengakali report ini untuk
> > > handel data yang lebih dari satu halaman?
> > >
> > >
> > > aksan kurdin
> > >
> > > --- In [email protected] <belajar-access%40yahoogroups.com>,
> > > Didin Susiandani <ds05376@> wrote:
> > > >
> > > > Dear Bang Aksan
> > > >
> > > > Terima kasih atas reply nya...mantap banget.
> > > >
> > > > Terima kasih
> > > > Didin s
> > > >
> > > > P.S
> > > > Semoga bang Haer Lekas sembuh
> > > > ( syafahullahu.....labasa thohurun insya alloh )
> > > >
> > >
> > >
> > >
> >
>
