محمد احمد لطفى قام بنشر فبراير 24, 2023 مشاركة قام بنشر فبراير 24, 2023 (معدل) 1 -فتح الصورة للطباعة مباشرة مثل الصورة و لذلك لضبط الصورة قبل الطباعة من الجهاز 2 - و هل يمكن طباعة الصورة مباشرة print.rar تم تعديل فبراير 24, 2023 بواسطه محمد احمد لطفى رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 24, 2023 الكاتب مشاركة قام بنشر فبراير 24, 2023 1 - تم حلها ShellExecute Me.hwnd, "print", CurrentProject.Path & "\" & "print" & ".jpg", "", "", 1 2 - هل يمكن طباعة الصورة مباشرة رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر فبراير 24, 2023 مشاركة قام بنشر فبراير 24, 2023 جرب هذا الكود أخي محمد 🙂 Public Sub PrintPicture(ByVal strFilePath As String) Dim objShell As Object Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "mspaint.exe", "/p " & Chr(34) & strFilePath & Chr(34), "", "print", 1 End Sub 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 24, 2023 الكاتب مشاركة قام بنشر فبراير 24, 2023 (معدل) لم يعمل تم تعديل فبراير 24, 2023 بواسطه محمد احمد لطفى رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابوخليل قام بنشر فبراير 24, 2023 أفضل إجابة مشاركة قام بنشر فبراير 24, 2023 وجدت لك هذه وحدة نمطية عامة اجعلها في مديول #If VBA7 Then Private Declare PtrSafe Function GetShortPathName Lib "kernel32" _ Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long #Else Private Declare Function GetShortPathName Lib "kernel32" _ Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long #End If Public Function GetShortName(ByVal sLongFileName As String) As String Dim lRetVal As Long, sShortPathName As String, iLen As Integer 'Set up buffer area for API function call return sShortPathName = Space(255) iLen = Len(sShortPathName) 'Call the function lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen) 'Strip away unwanted characters. GetShortName = Left(sShortPathName, lRetVal) End Function ويتم مناداتها بهذا السطر Shell ("cmd /c mspaint /p " & GetShortName(CurrentProject.path & "\" & Me.picFld & ".jpg")) 2 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 25, 2023 الكاتب مشاركة قام بنشر فبراير 25, 2023 جزاك الله خيراً أستاذى @ابوخليل تم الطباعة بالفعل ولكن الصفحة كبيرة كيف يمكن الطباعة بالغاء Fit Picture to frame أوجعلها Off فى خيارات الطباعة رابط هذا التعليق شارك More sharing options...
سامي الحداد قام بنشر فبراير 25, 2023 مشاركة قام بنشر فبراير 25, 2023 جرب هذه الاضافة ووافنا بالنتيجة. Private Sub Form_Load() Me.Image1.SizeMode = fmPictureSizeClip End Sub 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 25, 2023 الكاتب مشاركة قام بنشر فبراير 25, 2023 أستاذ @سامي الحداد الصورة على الحاسب و غير موجود خلية Me.Image1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.