Mas End...
sudah saya aplikasikan scripnya...tapi tetap masih ada y baik page 1& 2 kotak 
line kosongnya...
mohon di koreksi donk...apa scripnya salah atau say yg ngg mudeng...

Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
If IsNumeric(GRANDTOTAL_AMT) Then
Line153.Visible = True
Line124.Visible = True
Line120.Visible = True
Line149.Visible = True
Line238.Visible = True
Line125.Visible = True

Else
Line153.Visible = False
Line124.Visible = False
Line120.Visible = False
Line149.Visible = False
Line238.Visible = False
Line125.Visible = False
End If

End Sub

Salam


  ----- Original Message ----- 
  From: Maulana 
  To: [email protected] 
  Sent: Monday, March 22, 2010 5:12 PM
  Subject: Re: [belajar-access] Re: Page Report


    

  Trims Mas End
  akan saya terapkan ...

  Salam

    ----- Original Message ----- 
    From: End 
    To: [email protected] 
    Sent: Monday, March 22, 2010 4:43 PM
    Subject: [belajar-access] Re: Page Report


      

    Bapak Mungkin bisa di dalam on print page footer tersebut bapak tulis kode 
ini
    If isnumeric(total) then
    Nama line.visible=true
    Else
    Nama line.visible=false
    End If

    Ket : jika total dalam bentuk angka maka garis yg berupa kotak itu akan 
ditampilkan dan jika total bukan dalam bentuk angka maka akan disembunyikan

    Semoga bisa membantu bapak..




  

Kirim email ke