coba atur dengan printcount dan formatcount di event:
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
if printcount > 1 then
exit sub
end if
....
....
end sub
dst ... yang ada parameter count2nya ...
coba bagaimana hasilnya, van ..
aksan kurdin
On 2/27/08, 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.
>
>
--
Aksan Kurdin
