چاپ فایل ورد توسط کریستال ریپورت

[mostafa_mgsoft]

دوستان من می خوام محتویات تایپ شده در فایل ورد رو توسط کریستال ریپورت چاپ کنم
کسی می تونه راهنمایی کنه.
دلیل استفاده از کریستال این هستش که در انتهای ریپورت امضای الکترونیکی موجود در دیتابیش هم بایدچاپ بشه-(نرم افزار اتوماسیون اداری)

[vbhamed]

سلام
به جای اینکار می‌تونید اول از فایل ورد یک کپی بگیرید بعد با استفاده از اتوماسیون OLE امضاء رو در انتهای اون درج و سپس توسط خود ورد چاپ کنید

[mostafa_mgsoft]

مشکل اینجاست که فایل تصویر امضا روی نام امضا کننده در ورد نمیفه و پراپرتی Behind text برای shape تصویر امضا از داخل vb6 رو من نتونستم پیدا کنم
اگه بیشتر راهنمایی کنید ممنون میشم

[vbhamed]

سلام
تو word گزینه ضبط ماکرو رو بزنید و عمل مورد نظر رو انجام بدید (مثلا درج تصویر و تنظیم اون در جای خودش)، سپس ضبط ماکرو و متوقف کنید و با کلید ترکیبی Alt+F11 وارد محیط VBA بشید (شبیه VB6 هستش) و در ماژولهای اون کدهای درج شده رو ببینید

[mostafa_mgsoft]

باعرض تشکر با این روش کار من راه افتاد اما یه مشکلی که دارم پس از بسته شدن فایل ورد دوباره که می خوای به فایل رجوع کنی وتغییرات دیگه ای بدی این خطا رو میده.
the remote server machine does not exist or is unavailable
مگر اینکه کل پروژه دوباره اجرا بشه.این سورس کد منه. اگر راهنمایی کنید ممنون میشم
Dim oword As Word.Application
Dim oDoc As Word.Document
Dim AShape As Word.InlineShape
Set oword = CreateObject("Word.Application")
(Set oDoc = oword.Documents.Open(FileName:="f:\doc2.doc"
oword.Visible = True
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Set AShape = Selection.InlineShapes.AddPicture(FileName:= _
"C:\Capture.JPG", LinkToFile:= _
False, SaveWithDocument:=True)

Set oDoc = Nothing
Set oword = Nothing

[vbhamed]

سلام
خب شما باید فایلی که باز کردین رو ذخیره کنید و ببندید
Dim oword As Word.Application
Dim oDoc As Word.Document
Dim AShape As Word.InlineShape

Set oword = CreateObject("Word.Application")
Set oDoc = oword.Documents.Open(FileName:="f:\doc.docx")

oword.Visible = True

Selection.EndKey Unit:=wdStory

Selection.TypeParagraph

Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft

Set AShape = Selection.InlineShapes.AddPicture(FileName:="C:\test.jpg", LinkToFile:=False, SaveWithDocument:=True)

oword.Application.ActiveDocument.Save
oword.Application.ActiveDocument.Close
oword.Quit

Set oDoc = Nothing
Set oword = Nothing