Mas Ivan, bagaimana kalau pakai event onFormat sehingga jadi sbb: > Private Sub Detail_FORMAT(Cancel As Integer, FormatCount 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_FORMAT(Cancel As Integer, FormatCount As > Integer) > Me.TSAWALU = TMPU2 > Me.TSAWALR = TMPR2 > End Sub >
--- In [email protected], Ivan Leonardo <[EMAIL PROTECTED]> wrote: > > 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. >
