اذهب الي المحتوي
أوفيسنا

طباعة اليوزرفورم بالكامل


إذهب إلى أفضل إجابة Solved by Ali Mohamed Ali,

الردود الموصى بها

  • أفضل إجابة

بعد اذن استاذنا الرائد طبعا .... على الرغم اننا نبهنا مرارا وتكرارا ان لا وجود لأى مشاركة الا بإحتوائها على ملف مدعوم بشرح كافى عن المطلوب , فغير ذلك مخالف لقوانين المنتدى وسيعرض المشاركة للحذف حيث انه يعمل على اهدار وقت الأساتذة دون جدوى كما انه لا يمكن العمل على التخمين,على الرغم من كل هذا قمت بعمل ملف لك بالمطلوب .... فعليك من البداية فتح مديول جديد ووضع هذا الكود به

Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = 44
Public Const VK_LMENU = 164
Public Const KEYEVENTF_KEYUP = 2
Public Const KEYEVENTF_EXTENDEDKEY = 1

وبعد تصميم الفورم عليك بوضع هذا الكود به للطباعة

Private Sub CommandButton1_Click()
DoEvents
keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + _
KEYEVENTF_KEYUP, 0
keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + _
KEYEVENTF_KEYUP, 0
DoEvents
Workbooks.Add
Application.Wait Now + TimeValue("00:00:01")
ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, _
DisplayAsIcon:=False
ActiveSheet.Range("A1").Select
With ActiveSheet.PageSetup
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWorkbook.Close False
End Sub

وهذا هو الملف

 

print Userform.xlsm

  • Like 4
  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information