Pak. Coba bapak buka report Cetak_DUK_Fungsionl.
Copy paste code ini ke report tsb.
Silahkan lihat hasilnya.
Silahkan terapkan cara yang sama untuk report2 lainnya.
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
strNama = "50,51,52,53,55,56,49,57,58,59,60,61,63"
x = Split(strNama, ",")
For i = 0 To UBound(x)
Me.Line (Controls("Line" & x(i)).Left, Controls("Line" &
x(i)).Top)-(Controls("Line" & x(i)).Left, Detail.Height)
Next
End Sub
________________________________________
From: [email protected] [mailto:[email protected]]
On Behalf Of PEACE PAY
Sent: Thursday, 18 March, 2010 07:45
To: [email protected]
Subject: [belajar-access] Re: Report
Mas End, Tolong diterangkan lebih jelas lagi cara pembuatan Vertikal Line
agar tidak putus,
Modulnya harus bagaimana?
