coba pakai ini
Dim RPTApp As New CRAXDRT.Application
Dim RPTReport As New CRAXDRT.Report
Set RPTReport = RPTApp.OpenReport("report filenya")
RPTReport.Database.Verify
RPTReport.PrinterSetup form1.hWnd
RPTReport.PrintOut True, 1
Set RPTApp = Nothing
Set RPTReport = Nothing
Best regards
Revi Tantular
[EMAIL PROTECTED]
Integrated Software Solusindo
www.integratedsolusindo.com
Software Development Partners
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/indoprog-vb/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
