Sdr. Sukarno Coba gunakan dan modif function dibawah ini. (Code ini sudah saya gunakan untuk salah satu form di program saya.) Code ini saya dapat di millis ini juga dengan sedikit modifikasi. (terima kasih untuk para senior yang telah memberi inspirasi) salam darsono '---------------------------------------------------------------------- Private Sub Report_Page() Me.ScaleMode = 1 Me.ForeColor = 0 'Page Header '------------------------------------------------------------- '--- Horisontal Me.Line (0 * 57, 18 * 57)-(193.5 * 57, 18 * 57) ' - ket: membuat garis datar dari titik kordinat 0,18 - ke titik 193.5,18 mm. Me.Line (0 * 57, 19 * 57)-(114.5 * 57, 19 * 57) Me.Line (0 * 57, 41 * 57)-(114.5 * 57, 41 * 57) Me.Line (115.5 * 57, 19 * 57)-(193.5 * 57, 19 * 57) Me.Line (115.5 * 57, 41 * 57)-(193.5 * 57, 41 * 57) '--- Vertical Me.Line (0 * 57, 19 * 57)-(0 * 57, 41 * 57) Me.Line (114.5 * 57, 19 * 57)-(114.5 * 57, 41 * 57) Me.Line (115.5 * 57, 19 * 57)-(115.5 * 57, 41 * 57) Me.Line (193.5 * 57, 19 * 57)-(193.5 * 57, 41 * 57) '--- Horisontal '----------------------------------------------------------- '--- Colom Header Me.Line (0 * 57, 42.5 * 57)-(114.5 * 57, 42.5 * 57) Me.Line (115.5 * 57, 42.5 * 57)-(193.5 * 57, 42.5 * 57) Me.Line (143 * 57, 48.5 * 57)-(193.5 * 57, 48.5 * 57) Me.Line (80 * 57, 48.5 * 57)-(114.5 * 57, 48.5 * 57) Me.Line (0 * 57, 54 * 57)-(114.5 * 57, 54 * 57) Me.Line (115.5 * 57, 54 * 57)-(193.5 * 57, 54 * 57) '--- Detail Me.Line (0 * 57, 55 * 57)-(114.5 * 57, 55 * 57) Me.Line (115.5 * 57, 55 * 57)-(193.5 * 57, 55 * 57) Me.Line (0 * 57, 242 * 57)-(114.5 * 57, 242 * 57) Me.Line (115.5 * 57, 242 * 57)-(193.5 * 57, 242 * 57) '--- Approval Me.Line (0 * 57, 243 * 57)-(193.5 * 57, 243 * 57) Me.Line (47 * 57, 248 * 57)-(193.5 * 57, 248 * 57) 'Me.Line (143 * 57, 254 * 57)-(193.5 * 57, 254 * 57) 'If [Pages] <> 1 And [Page] = [Pages] Then Me.Line (143 * 57, 253 * 57)-(193.5 * 57, 253 * 57) Me.Line (143 * 57, 258 * 57)-(193.5 * 57, 258 * 57) 'End If Me.Line (47 * 57, 260 * 57)-(143 * 57, 260 * 57) Me.Line (0 * 57, 264 * 57)-(193.5 * 57, 264 * 57) '--- Vertical '------------------------------------------------------------ '--- Colom Header Me.Line (0 * 57, 42.5 * 57)-(0 * 57, 54 * 57) Me.Line (7 * 57, 42.5 * 57)-(7 * 57, 54 * 57) Me.Line (80 * 57, 42.5 * 57)-(80 * 57, 54 * 57) Me.Line (95 * 57, 48.5 * 57)-(95 * 57, 54 * 57) Me.Line (114.5 * 57, 42.5 * 57)-(114.5 * 57, 54 * 57) Me.Line (115.5 * 57, 42.5 * 57)-(115.5 * 57, 54 * 57) Me.Line (143 * 57, 42.5 * 57)-(143 * 57, 54 * 57) Me.Line (168 * 57, 48.5 * 57)-(168 * 57, 54 * 57) Me.Line (193.5 * 57, 42.5 * 57)-(193.5 * 57, 54 * 57) '--- Detail Me.Line (0 * 57, 55 * 57)-(0 * 57, 242 * 57) Me.Line (7 * 57, 55 * 57)-(7 * 57, 242 * 57) Me.Line (80 * 57, 55 * 57)-(80 * 57, 242 * 57) Me.Line (95 * 57, 55 * 57)-(95 * 57, 242 * 57) Me.Line (114.5 * 57, 55 * 57)-(114.5 * 57, 242 * 57) Me.Line (115.5 * 57, 55 * 57)-(115.5 * 57, 242 * 57) Me.Line (134 * 57, 55 * 57)-(134 * 57, 242 * 57) Me.Line (143 * 57, 55 * 57)-(143 * 57, 242 * 57) Me.Line (168 * 57, 55 * 57)-(168 * 57, 242 * 57) Me.Line (193.5 * 57, 55 * 57)-(193.5 * 57, 242 * 57) '9 '---- Approval Me.Line (0 * 57, 243 * 57)-(0 * 57, 264 * 57) Me.Line (47 * 57, 243 * 57)-(47 * 57, 264 * 57) Me.Line (80 * 57, 243 * 57)-(80 * 57, 264 * 57) Me.Line (101 * 57, 243 * 57)-(101 * 57, 264 * 57) Me.Line (122 * 57, 243 * 57)-(122 * 57, 264 * 57) Me.Line (143 * 57, 243 * 57)-(143 * 57, 264 * 57) Me.Line (193.5 * 57, 243 * 57)-(193.5 * 57, 264 * 57) End Sub
From: sukarno <[EMAIL PROTECTED]> Subject: [belajar-access] Garis nyambung sampai bawah To: [email protected] Date: Friday, September 5, 2008, 9:40 AM Dear All, Mohon Bantuan bagaimana cara membuat baris agar otomatis nyambung sampai ke footer. Sample baris paling kiri dan kanan. maunya langsung nyambung ke bawah, walau data tidak penuh. Terima kasih. Sukarno
