dulu sih pernah saya coba tapi dari word ke word melalui pb .. jd ambil word
sesuai referensi table terus digabung jd 1 word lagi... mungkin bisa dijadiin
referensi
scripnya seperti ini seh.. mudah2an bisa bantu walaupun gak seperti yg
diharapkan
string clause_code, counter
integer result, li_rtn
result = ole_1.insertfile('\\sql\master.doc')
li_rtn = ole_1.activate(offsite!)
if li_rtn < 0 then
messagebox('error', 'error')
end if
DECLARE clauseCursor CURSOR FOR
SELECT DISTINCT code, counter
FROM tr_memo
WHERE ( tr_memo.id = :gs_id )
order by counter;
Open clauseCursor ;
If SQLCA.SQLCode = -1 then
MessageBox("SQL Error", String (SQLCA.SQLDBCode) + ": " + SQLCA.SQLErrText)
Else
code = " "
Do
If code <> " " Then
ole_1.object.application.wordbasic.insertfile('\\sql\' + code +
'.doc','',1,1)
end if
Fetch clauseCursor Into :code, :counter ;
Loop While SQLCA.SQLCode = 0
If SQLCA.SQLCode = -1 then
MessageBox("SQL Error", String (SQLCA.SQLDBCode) + ": " +
SQLCA.SQLErrText)
End If
End If
Close clauseCursor ;
ole_1.object.application.wordbasic.editselectall()
ole_1.object.application.wordbasic.formatfont(9)
--- On Thu, 7/24/08, Gfr <[EMAIL PROTECTED]> wrote:
From: Gfr <[EMAIL PROTECTED]>
Subject: [indopb] Report ke Microsoft Word
To: [email protected]
Date: Thursday, July 24, 2008, 12:51 AM
Rekan-rekan PB Indo.
Dengan Hormat,
Dulu pernah saya “lempar permasalahan ini” di
forum diskusi IndoPB tetapi sampai sekarang belum ada tanggapannya.
Permasalahannya. . “Bagaimana mencetak laporan ke
Microsoft Office? Sebab jika menggunakan fasilitas RichText yang merupakan
bawaan PB, (menurut saya) teramat sulit untuk mensettingnya serta hasilnya
tidak sedinamis seperti yang diharapkan”…
Sebelumnya saya mohon maaf yang sebesar-besarnya…
Mengingat PENTINGnya hal tersebut bagi saya.. adakah rekan-rekan
PB yang membantu kesulitan saya tsb.
Andaikata harus “membeli” ilmunya.. silahkan
hubungi saya via japri…
Sekali lagi dengan segala kerendahan hati, saya mohon maaf…
Hormat saya,
Gfr
