Dan berikut untuk satuan milimeter, lebih sederhana.
perintah me.line (x1,y1) - (x2,y2)
artinya buat garis dari kordinat (x1,y1) ke (x2,y2)
patokannya x adalah kordinat horizontal, dan y adalah kordinat vertikal.
patokan (0,0) ada di ujung kiri atas kertas.
x positif ke kanan, y positif ke bawah.
Option Compare Database
Option Explicit
Private Sub Report_Page()
Me.ScaleMode = 6 'scalemode is mm
Me.ForeColor = 0
'HORI
Me.Line (2.2, 0.5)-(193.3, 0.5) 'kop atas
Me.Line (2.2, 25)-(193.3, 25) 'kop bawah
Me.Line (33, 10)-(193.3, 10) 'kop bawah
Me.Line (150, 5)-(193.3, 5) 'kop bawah
Me.Line (2.2, 50)-(193.3, 50) 'header atas
Me.Line (2.2, 55.5)-(193.3, 55.5) 'header bawah
Me.Line (2.2, 200)-(193.3, 200) 'paling bawah3
Me.Line (150, 216)-(193.3, 216) 'bawah PPN
Me.Line (2.2, 225)-(193.3, 225) 'paling bawah2
Me.Line (2.2, 262)-(193.3, 262) 'paling bawah1
'VERTI
Me.Line (2.2, 0.5)-(2.2, 262) 'paling kiri
Me.Line (17, 50)-(17, 200) 'no kanan
Me.Line (35, 50)-(35, 200) 'kode kanan
Me.Line (105, 50)-(105, 200) 'nabar kanan
Me.Line (135, 50)-(135, 200) 'harga kanan
Me.Line (150, 50)-(150, 225) 'qty kanan
Me.Line (33, 0.5)-(33, 25) 'dari kiri
Me.Line (150, 0.5)-(150, 25) 'dari kanan
Me.Line (193.3, 0.5)-(193.3, 262) 'paling kanan
End Sub
aksan kurdin
--- In [email protected], "aksankurdin" <aksan.kur...@...> wrote:
>
> 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.kurdin@> 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 )
> > > > >
> > > >
> > > >
> > > >
> > >
> >
>
