Saya kan sudah buat saldo bergerak di report, kalo report di print
preview semua hasil saldo sudah benar TAPI kalo dari posisi preview tadi
saya cetak semua nilai saldo bergerak yg tercetak ngaco semua, beda
dengan yg ada dilayar posisi preview report. Saya menaruh coding di
properties report spt nya ada yg salah nih ada yg bisa bantu ? Kalo
reportnya TIDAK dipreview dulu tapi langsung dicetak hasilnya ok. ini
coding yg saya buat
Option Compare Database
Public TMPU1 As Currency, TMPU2 As Currency, TMPU3 As Currency
Public TMPR1 As Currency, TMPR2 As Currency, TMPR3 As Currency
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If Me.CurrentRecord = 1 Then
TMPU1 = IIf(T1 = 0, AMBIL_SAWALU(Forms!MENU_REPORT!CBO_JNSKAS), T1)
TMPR1 = IIf(T2 = 0, AMBIL_SAWALR(Forms!MENU_REPORT!CBO_JNSKAS), T2)
End If
TMPU3 = IIf(Me.CurrentRecord = 1, TMPU1, TMPU3) + DB - KR
TMPR3 = IIf(Me.CurrentRecord = 1, TMPR1, TMPR3) + DBTRP - KRDRP
Me.TSALDOU = TMPU3
Me.TSALDORP = TMPR3
End Sub
Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As
Integer)
Me.TSAWALU = TMPU2
Me.TSAWALR = TMPR2
End Sub
Private Sub Report_NoData(Cancel As Integer)
Cancel = True
End Sub
Private Sub Report_Open(Cancel As Integer)
Dim T1 As Currency, T2 As Currency
TMPU = 0
TMPR = 0
TMPU2 = 0
TMPR2 = 0
TMPU3 = 0
TMPR3 = 0
T1 = CEK_SALDOBEF_USD()
T2 = CEK_SALDOBEF_RP()
'TMPU = IIf(T1 = 0, AMBIL_SAWALU(Forms!MENU_REPORT!CBO_JNSKAS), T1)
'TMPR = IIf(T2 = 0, AMBIL_SAWALR(Forms!MENU_REPORT!CBO_JNSKAS), T2)
TMPU2 = IIf(T1 = 0, AMBIL_SAWALU(Forms!MENU_REPORT!CBO_JNSKAS), T1)
TMPR2 = IIf(T2 = 0, AMBIL_SAWALR(Forms!MENU_REPORT!CBO_JNSKAS), T2)
End Sub
Private Sub ReportFooter_Format(Cancel As Integer, FormatCount As Integer)
Me.TSAKHIRU = TMPU3
Me.TSAKHIRR = TMPR3
End Sub
---------------------------------------------------------------------------
This message contains confidential information and is intended only for the
individual named. If you are not the named addressee you should not
disseminate, distribute or copy this e-mail. Please notify the sender
immediately by e-mail if you have received this e-mail by mistake and delete
this e-mail from your system. E-mail transmission cannot be guaranteed to be
secure or error-free as information could be intercepted, corrupted, lost,
destroyed, arrive late or incomplete, or contain viruses. The sender therefore
does not accept liability for any errors or omissions in the contents of this
message, which arise as a result of e-mail transmission. If verification is
required please request a hard-copy version.
