فتح الصورة للطباعة

[محمد احمد لطفى]

1 -فتح الصورة للطباعة مباشرة مثل الصورة و لذلك لضبط الصورة قبل الطباعة من الجهاز

2 - و هل يمكن طباعة الصورة مباشرة

print.rar

تم تعديل فبراير 24, 2023 بواسطه محمد احمد لطفى

[محمد احمد لطفى]

1 - تم حلها 

 

ShellExecute Me.hwnd, "print", CurrentProject.Path & "\" & "print" & ".jpg", "", "", 1

2 - هل يمكن طباعة الصورة مباشرة

[Moosak]

جرب هذا الكود أخي محمد 🙂

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

 

[محمد احمد لطفى]

لم يعمل

 

تم تعديل فبراير 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"))

 

[محمد احمد لطفى]

جزاك الله خيراً أستاذى @ابوخليل 

تم الطباعة بالفعل ولكن الصفحة كبيرة 

كيف يمكن الطباعة بالغاء Fit Picture to frame أوجعلها Off فى خيارات الطباعة 

[سامي الحداد]

جرب هذه الاضافة ووافنا بالنتيجة.

Private Sub Form_Load()
    Me.Image1.SizeMode = fmPictureSizeClip
End Sub

 

[محمد احمد لطفى]

أستاذ @سامي الحداد
الصورة على الحاسب و غير موجود خلية 

  Me.Image1