چاپ یک فایل

[yaserafrooz]

سلام خدمت اساتید محترم

خواستم بپرسم از چه طریقی میشه یک فایل رو چاپ کرد

به عنوان مثال ، یک فایل با پسوند docx داریم که برای word استفاده میشه و قبلا تو یه پوشه ذخیره شده

حالا میخوام با برنامم این فایل رو به پرینتر ارسال کنم تا محتویاتش چاپ بشه

ممنون میشم اگه کمک بفرمایید..

[سید حمید حق پرست]

سلام علیکم
بفرمایید عزیز :
Dim WordObj As Object
Set WordObj = CreateObject("Word.Application")
WordObj.Documents.Open "F:\Doc1.docx"
WordObj.PrintOut Background:=False
WordObj.Quit
Set WordObj = Nothing
موفق باشید.

یا علی (ع)

[yaserafrooz]

سلام علیکم
بفرمایید عزیز :
Dim WordObj As Object
Set WordObj = CreateObject("Word.Application")
WordObj.Documents.Open "F:\Doc1.docx"
WordObj.PrintOut Background:=False
WordObj.Quit
Set WordObj = Nothing
موفق باشید.

یا علی (ع)

تشکر دوست عزیز ، بسیار عالی بود

حالا این فقط برای فایل های Word هستش ، اگه بخوایم برای هر نوع فایلی باشه ، مثلا من یه عکس رو تو اون پوشه کپی کنم و چاپ بشه یا یه فایل TXT رو یا فایل Excel ، اینو چه جوری بنویسیم؟

ممنون میشم راهنمایی بفرمایید و یه توضیح مختصری در مورد کدها بگین.. تشکر

[yaserafrooz]

اینو خودم پیدا کردم میذارم واسه دوستانی که مثل من دنبال این میگشتن:

برای چاپ هر فایلی متنی (Word،Excel,TxT,Access) تو Vb6 از کد زیر استفاده می کنیم:

تو قسمت General فرم این کدها رو مینویسیم:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long


سپس تو یه Command button یا هر جایی که قراره دستور چاپ ارسال کنه رو این کد میذاریم:

Dim lngResult As Long
lngResult = ShellExecute(Me.hwnd,"Print",strFile,0&,0&,vbMinimized)

و در کد بالا اونجایی که نوشه "strFile" رو هم مسیر فایلمون میدیم:

اینم مثالش:

Private Sub Command1_Click()
Dim lngResult As Long
lngResult = ShellExecute(Me.hwnd,"Print","D:/Document.Docx",0&,0&,vbMinimized)
End Sub


موفق باشین..