Salut buat Bang Aksan, emang perlu dipancing dulu nih Abang, biar keluar ilmunya. Kapan kopdar lagi ya??? Seneng lihat Bang Aksan kalau lagi nulis coding...
regards, suka.access ----- Original Message ----- From: aksankurdin To: [email protected] Sent: Tuesday, May 04, 2010 7:42 PM Subject: [belajar-access] Re: Garis pada section Detail Report 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 ) > > > > > > > > > > > > > > > > > > > > > > >
