Coba pake Code di bawah ini :
With CR
.Connect = "DSN=" & NmSERVER & ";UID=" & UserSQL & ";PWD=" & Passwor
& ";DSQ=" & NmData-> Connection String SQL
.ReportFileName = App.Path & "\Laporan\FormOpname.Rpt"
.DataFiles(0) = "TbMDPartStock"-> Nama Table
.RetrieveDataFiles
.DiscardSavedData = True
.Destination = crptToWindow
.ReplaceSelectionFormula Str
.WindowState = crptMaximized
.Action = 1
End With
--
www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia
Info, Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED]
:: Hapus bagian yang tidak perlu (footer, dst) saat reply! ::
## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ##
$$ Iklan/promosi : www.itcenter.or.id/sponsorship $$
[@@] Jaket ITCENTER tersedia di http://shop.itcenter.or.id
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/ITCENTER/
<*> 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/
