با سلام من برنامه مي خوام كه توسط اون يك فايل Word را از درايوي كه به برنامه معرفي مي كنيم بعد از مدت زمان دلخواه (مثلا 10 دقيقه) و با زدن يك كليد خاص كه به برنامه معرفي مي شود پرينت بزنه حال اگر اين كد برنامه را بشه تو ماكرو ورد اچرا كرد چه بهتر اگر نشد توسط ويژوال بيسيك انجام بشه به صورت مستقل هر كس توانست بنويسه به من خبر بده به اين ايميل :zer0tent@yahoo.com
کد زیر اینکار رو میتونه انجام بده :
کد:
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("c:\my.doc")
objDoc.PrintOut()
objWord.Quit
خيلي ممنون اما زمان پرينت را چطوري تعريف كنم
و نحوه تعريف كليد دلخواه مثلا اگه enter زد برنامه پرينت بده
حالا اگه بخوام دستور را توي يك ماكرو بنويسم بايد چكار كنم فرض كنيد دستور را بخواهيم در يك ماكرو تنظيم كنيم
'
' Macro1 Macro
' Macro recorded þ29þ/02þ/2008 by zer0tent
'
ChangeFileOpenDirectory _
"C:\Documents and Settings\Dear-User\My Documents\ASD\"
Documents.Open FileName:="2.doc", ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, XMLTransform:="", DocumentDirection:= _
wdRightToLeft
Selection.Font.SizeBi = Selection.Font.SizeBi - 1
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="13", PageType:=wdPrintAllPages _
, ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile _
:=False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
اين سورس برنامه در ماكرو است مي خوام يك زمان به اين سورس اضافه بشه كه بعد از مدتي دلخواه پرينت بزنه و بشه كليد enter را تعريف كرد كه وقتي زدي پرينت بزنه با تشكر