حاولت بكل امكانياتي ولم اتوصل الى ما اريد وهو طباعة الصورة مباشرة دون عرضها
ما توصلت اليه هو عرض الصورة فقط وهي في المثال المرفق
وجزى الله خيرا من ساعدني او حاول مساعدتي
سؤال كيف يتم طباعة صورة في مجلد عن طريق الكود
مرحبا ابو بسام
في declaration ضع
(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
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
Private Sub Command0_Click() Dim strPath As String strPath = Application.CodeProject.Path & "\photos\" & [PICNO] & ".jpg" PrintFile (strPath) End Sub
Function PrintFile(FileName As String) As Boolean Dim RetVal, Operation Operation = "Print" RetVal = ShellExecute(0, Operation, FileName, "", "", 1) PrintFile = RetVal End Function
يرجي الانتباه
ان هذا الكود سوف يطبع لك الصورة مباشرة الي الطابعة, الضعف الوحيد فيه انه يفتح Default Program المخصص لهذا النوع من extension ويطبع من خلاله
شكرا لك اخي ولكن الكود الذي تفضلت به انما يفتح في وضع الاستعراض فقط
انا اريده يطبع مباشرة الى الطابعه وجزاك الله خيرا
للرفع لاهمية الموضوع بالنسبة لي
للرفع