logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



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





13-10-2017 06:12 مساءً
السلام عليكم ورحمة الله وبركاته
أولا أعتذر عن الانقطاع عن المشاركات وذلك لظروف عمل و دراسة
اليوم إنشاء الله سوف نحاول التطرق لكيفية معاينة ورقة العمل قبل الطباعة وذلك من خلال اليوزر فورم كيف ذلك ؟.
تابع معي
أولا نقوم بفتح ملف اكسل ثم نقوم بكتابة بيانات ولتكن على سبيل المثال تقرير حول الانتاج اليوم لمصنع مثلما هو موضح في الصورة
MTY2OTIx2017-10-13_152801
نفتح محرر الأكواد ونقوم إدراج يوزر فورم وندرج فيه زرين كما هو في الصورة
Mjc3ODY3MQ87872017-10-13_150626
نقوم بإدراج يوزر فورم2 ونظيف له زرين ومربع لصور كما هو موضح
NDIzODYzMQ11112017-10-13_151406
بعد ذلك نقوم بتكبير اليوزر فورم 2 وكذلك مربع الصورة لكي يتناسب مع حجم الشاشة
نعود لليوزر فورم 1 ونضغط مرتين على زر معاينة قبل الطباعة ونكتب الكود التالي:
CODE
Private Sub CommandButton2_Click()
UserForm2.Show
End Sub

وفي زر إظهار ملف الأكسل نكتب الكود التالي:
CODE
Private Sub CommandButton5_Click()
UserForm1.Hide
Application.Visible = True

End Sub

وفي اليوزر فورم الثاني نكتب في حدث UserForm_Activate() الكود التالي:
CODE
Private Sub UserForm_Activate()
Application.CutCopyMode = False
Range("a1:l26").Copy
Image1.Picture = PastePicture(xlPicture)
Application.CutCopyMode = True
End Sub

وهذا الكود هو لكي يقوم البرنامج بإلتقاط صورة للمدى المحدد في الكود وعرضها كصورة على اليوزر فور
وفي زر الطباعة نكتب الكود التالي:
[codePrivate Sub CommandButton7_Click()
Application.Visible = True
ActiveSheet.Range("a1:l26").PrintOut copies:=TextBox1.Value
End Sub]
[/code]
وهذا الكود هو للطباعة والقيمة الموجودة في التكس بوكس هي عدد النسخ التي تريد طباعتها
ثم نقوم بإدراج موديول وننسخ فيه الكود التالي:
CODE
'***************************************************************************
'*
'* MODULE NAME:     Paste Picture
'* AUTHOR & DATE:   STEPHEN BULLEN, Office Automation Ltd
'*                  15 November 1998
'*
'* Revisions by JosephP for 64bit compatibility
'*
'* '* DESCRIPTION:     Creates a standard Picture object from whatever is on the clipboard.
'*                  This object can then be assigned to (for example) and Image control
'*                  on a userform.  The PastePicture function takes an optional argument of
'*                  the picture type - xlBitmap or xlPicture.
'*
'*                  The code requires a reference to the "OLE Automation" type library
'*
'*                  The code in this module has been derived from a number of sources
'*                  discovered on MSDN.
'*
'*                  To use it, just copy this module into your project, then you can use:
'*                      Set Image1.Picture = PastePicture(xlPicture)
'*                  to paste a picture of whatever is on the clipboard into a standard image control.
'*
'* PROCEDURES:
'*   PastePicture   The entry point for the routine
'*   CreatePicture  Private function to convert a bitmap or metafile handle to an OLE reference
'*   fnOLEError     Get the error text for an OLE error code
'***************************************************************************

Option Explicit
Option Compare Text
'Declare the GUID Type structure for the IPicture OLE Interface
Private Type GUID
   Data1                      As Long
   Data2                      As Integer
   Data3                      As Integer
   Data4(0 To 7)              As Byte
End Type

'The API Constants needed
Const CF_BITMAP = &H2
Const CF_ENHMETAFILE = &HE
Const CF_METAFILEPICT = &H3
Const CF_PALETTE = &H9
Const IMAGE_BITMAP = &H0
Const IMAGE_ICON = &H1
Const IMAGE_CURSOR = &H2
Const LR_COPYRETURNORG = &H4


#If VBA7 Then
   '=================================='
   ' User-Defined Types for API Calls '
   '=================================='

   'Declare the Picture Description Type structure
Private Type PICTDESC
   Size                       As Long
    Type                       As Long
   hPic                       As LongPtr     'Holds the handle to a .bmp, .emf, .ico, .wmf file
   Data1                      As LongPtr    'For a .bmp this holds the pallete handle hPal. For a .wmf this hold the xExt value.
   Data2                      As LongPtr    'Used only with a .wmf to hold the yExt value.
End Type

'==================================='
' Windows API Function Declarations '
'==================================='

'Does the clipboard contain a bitmap/metafile?
Private Declare PtrSafe Function IsClipboardFormatAvailable Lib "user32.dll" _
        (ByVal wFormat As Long) As Long

'Open the clipboard to read and write data
Private Declare PtrSafe Function OpenClipboard Lib "user32.dll" _
        (ByVal hWnd As LongPtr) As Long

'Get a pointer to the bitmap/metafile
Private Declare PtrSafe Function GetClipboardData Lib "user32.dll" _
        (ByVal wFormat As Long) As LongPtr

'Copy data to the clipboard
Private Declare PtrSafe Function SetClipboardData Lib "user32.dll" _
        (ByVal uFormat As Long, ByVal hData As LongPtr) As LongPtr

'Empty the clipboard
Private Declare PtrSafe Function EmptyClipboard Lib "user32.dll" () As Long

'Close the clipboard
Private Declare PtrSafe Function CloseClipboard Lib "user32.dll" () As Long

'Convert the handle into an OLE IPicture interface.
Private Declare PtrSafe Function OleCreatePictureIndirect Lib "oleaut32.dll" _
        (ByRef pPictDesc As PICTDESC, ByRef riid As GUID, ByVal fOwn As Long, _
         ByRef ppvObj As IPicture) As LongPtr

'Create our own copy of the metafile, so it doesn't get wiped out by subsequent clipboard updates.
Declare PtrSafe Function CopyEnhMetaFile Lib "GDI32.dll" Alias "CopyEnhMetaFileA" _
        (ByVal hemfSrc As LongPtr, ByVal lpszFile As String) As LongPtr

'Create our own copy of the bitmap, so it doesn't get wiped out by subsequent clipboard updates.
Declare PtrSafe Function CopyImage Lib "user32.dll" (ByVal hImage As LongPtr, ByVal uType As Long, _
                                                     ByVal cxDesired As Long, ByVal cyDesired As Long, _
                                                     ByVal fuFlags As Long) As LongPtr


Public Function PastePicture(Optional xlPicType As Long = xlPicture) As IPicture

'Some pointers
   Dim hClip                  As Long
   Dim hCopy                  As LongPtr
   Dim hObj                   As LongPtr
   Dim hPal                   As Long
   Dim hPicAvail              As Long
   Dim PicType                As Long
   Dim RetVal                 As Long

   'Convert the Excel picture type constant to the correct API constant
   PicType = IIf(xlPicType = xlBitmap, CF_BITMAP, CF_ENHMETAFILE)

   'Check if the clipboard contains the required format
   hPicAvail = IsClipboardFormatAvailable(PicType)

   If hPicAvail <> 0 Then
      'Get access to the saj clipboard
      hClip = OpenClipboard(0&)

      If hClip > 0 Then
         'Get a handle to the saj object
         hObj = GetClipboardData(PicType)

         'Create a copy of the saj clipboard image in the appropriate format.
         If PicType = CF_BITMAP Then
            hCopy = CopyImage(hObj, IMAGE_BITMAP, 0&, 0&, LR_COPYRETURNORG)
         Else
            hCopy = CopyEnhMetaFile(hObj, vbNullString)
         End If

         'Release the saj clipboard to other programs
         RetVal = CloseClipboard

         'If there is a handle to the image, convert it into a Picture object and return it
         If hObj <> 0 Then Set PastePicture = CreatePicture(hCopy, 0, PicType)
      End If
   End If

End Function

Private Function CreatePicture(ByVal hPic As LongPtr, ByVal hPal As LongPtr, ByVal PicType) As IPicture

'saj IPicture requires a reference to "OLE Automation"
   Dim Ref_ID                 As GUID
   Dim IPic                   As IPicture
   Dim PicInfo                As PICTDESC
   Dim RetVal                 As LongPtr

   'OLE Picture types
   Const PICTYPE_UNINITIALIZED = -1
   Const PICTYPE_NONE = 0
   Const PICTYPE_BITMAP = 1
   Const PICTYPE_METAFILE = 2
   Const PICTYPE_ICON = 3
   Const PICTYPE_ENHMETAFILE = 4

   'Create a UDT to hold the reference to the interface ID (riid).
   'IPicture GUID {7BF80980-BF32-101A-8BBB-00AA00300CAB}
   'StdPicture GUID {0BE35204-8F91-11CE-9DE3-00AA004BB851}
   With Ref_ID
      .Data1 = &H7BF80980
      .Data2 = &HBF32
      .Data3 = &H101A
      .Data4(0) = &H8B
      .Data4(1) = &HBB
      .Data4(2) = &H0
      .Data4(3) = &HAA
      .Data4(4) = &H0
      .Data4(5) = &H30
      .Data4(6) = &HC
      .Data4(7) = &HAB
   End With

   'Fill PicInfo structure
   With PicInfo
      .Size = Len(PicInfo)                                                    ' Length of structure.
      .Type = IIf(PicType = CF_BITMAP, PICTYPE_BITMAP, PICTYPE_ENHMETAFILE)   ' Type of Picture
      .hPic = hPic                                                            ' Handle to image.
      .Data1 = IIf(PicType = CF_BITMAP, hPal, 0&)                             ' Handle to palette (if bitmap).
      .Data2 = 0&
   End With

   'Create the Picture object.
   RetVal = OleCreatePictureIndirect(PicInfo, Ref_ID, True, IPic)

   'Check if an error ocurred
   If RetVal <> 0 Then
      MsgBox "Create Picture Failed - " & GetErrMsg(RetVal)
      Set IPic = Nothing
      Exit Function
   End If

   'Return the new Picture object.
   Set CreatePicture = IPic

End Function
Private Function GetErrMsg(ErrNum As LongPtr) As String

'OLECreatePictureIndirect return values
   Const E_ABORT = &H80004004
   Const E_ACCESSDENIED = &H80070005
   Const E_FAIL = &H80004005
   Const E_HANDLE = &H80070006
   Const E_INVALIDARG = &H80070057
   Const E_NOINTERFACE = &H80004002
   Const E_NOTIMPL = &H80004001
   Const E_OUTOFMEMORY = &H8007000E
   Const E_POINTER = &H80004003
   Const E_UNEXPECTED = &H8000FFFF

   Select Case ErrNum
   Case E_ABORT
      GetErrMsg = " Aborted"
   Case E_ACCESSDENIED
      GetErrMsg = " Access Denied"
   Case E_FAIL
      GetErrMsg = " General Failure"
   Case E_HANDLE
      GetErrMsg = " Bad/Missing Handle"
   Case E_INVALIDARG
      GetErrMsg = " Invalid Argument"
   Case E_NOINTERFACE
      GetErrMsg = " No Interface"
   Case E_NOTIMPL
      GetErrMsg = " Not Implemented"
   Case E_OUTOFMEMORY
      GetErrMsg = " Out of Memory"
   Case E_POINTER
      GetErrMsg = " Invalid Pointer"
   Case E_UNEXPECTED
      GetErrMsg = " Unknown Error"
   End Select

End Function

#Else
   '=================================='
   ' User-Defined Types for API Calls '
   '=================================='

   'Declare the Picture Description Type structure
Private Type PICTDESC
    Size                       As Long
    Type                       As Long
    hPic                       As Long        'Holds the handle to a .bmp, .emf, .ico, .wmf file
    Data1                      As Long       'For a .bmp this holds the pallete handle hPal. For a .wmf this hold the xExt value.
    Data2                      As Long       'Used only with a .wmf to hold the yExt value.
End Type

'==================================='
' Windows API Function Declarations '
'==================================='

'Does the clipboard contain a bitmap/metafile?
Private Declare Function IsClipboardFormatAvailable Lib "user32.dll" _
                                                    (ByVal wFormat As Integer) As Long

'Open the clipboard to read and write data
Private Declare Function OpenClipboard Lib "user32.dll" _
                                       (ByVal hWnd As Long) As Long

'Get a pointer to the bitmap/metafile
Private Declare Function GetClipboardData Lib "user32.dll" _
                                          (ByVal wFormat As Integer) As Long

'Copy data to the clipboard
Private Declare Function SetClipboardData Lib "user32.dll" _
                                          (ByVal uFormat As Long, ByVal hData As Long) As Long

'Empty the clipboard
Private Declare Function EmptyClipboard Lib "user32.dll" () As Long

'Close the clipboard
Private Declare Function CloseClipboard Lib "user32.dll" () As Long

'Convert the handle into an OLE IPicture interface.
Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" _
                                                  (ByRef pPictDesc As PICTDESC, ByRef riid As GUID, _
                                                   ByVal fOwn As Long, ByRef ppvObj As IPicture) As Long

'Create our own copy of the metafile, so it doesn't get wiped out by subsequent clipboard updates.
Declare Function CopyEnhMetaFile Lib "GDI32.dll" Alias "CopyEnhMetaFileA" _
                                 (ByVal hemfSrc As Long, ByVal lpszFile As String) As Long

'Create our own copy of the bitmap, so it doesn't get wiped out by subsequent clipboard updates.
Declare Function CopyImage Lib "user32.dll" (ByVal hImage As Long, _
                                             ByVal uType As Long, ByVal cxDesired As Long, _
                                             ByVal cyDesired As Long, ByVal fuFlags As Long) As Long

Public Function PastePicture(Optional xlPicType As Long = xlPicture) As IPicture

'Some pointers
   Dim hClip                  As Long
   Dim hCopy                  As Long
   Dim hObj                   As Long
   Dim hPal                   As Long
   Dim hPicAvail              As Long
   Dim PicType                As Long
   Dim RetVal                 As Long

   'Convert the Excel picture type constant to the correct API constant
   PicType = IIf(xlPicType = xlBitmap, CF_BITMAP, CF_ENHMETAFILE)

   'Check if the clipboard contains the required format
   hPicAvail = IsClipboardFormatAvailable(PicType)

   If hPicAvail <> 0 Then
      'Get access to the clipboard
      hClip = OpenClipboard(0&)

      If hClip > 0 Then
         'Get a handle to the object
         hObj = GetClipboardData(PicType)

         'Create a copy of the clipboard image in the appropriate format.
         If PicType = CF_BITMAP Then
            hCopy = CopyImage(hObj, IMAGE_BITMAP, 0&, 0&, LR_COPYRETURNORG)
         Else
            hCopy = CopyEnhMetaFile(hObj, vbNullString)
         End If

         'Release the clipboard to other programs
         RetVal = CloseClipboard

         'If there is a handle to the image, convert it into a Picture object and return it
         If hObj <> 0 Then Set PastePicture = CreatePicture(hCopy, 0, PicType)
      End If
   End If

End Function

Private Function CreatePicture(ByVal hPic As Long, ByVal hPal As Long, ByVal PicType) As IPicture

'saj IPicture requires a reference to "OLE Automation"
   Dim Ref_ID                 As GUID
   Dim IPic                   As IPicture
   Dim PicInfo                As PICTDESC
   Dim RetVal                 As Long

   'OLE Picture types
   Const PICTYPE_UNINITIALIZED = -1
   Const PICTYPE_NONE = 0
   Const PICTYPE_BITMAP = 1
   Const PICTYPE_METAFILE = 2
   Const PICTYPE_ICON = 3
   Const PICTYPE_ENHMETAFILE = 4

   'Create a UDT to hold the reference to the interface ID (riid).
   'IPicture GUID {7BF80980-BF32-101A-8BBB-00AA00300CAB}
   'StdPicture GUID {0BE35204-8F91-11CE-9DE3-00AA004BB851}
   With Ref_ID
      .Data1 = &H7BF80980
      .Data2 = &HBF32
      .Data3 = &H101A
      .Data4(0) = &H8B
      .Data4(1) = &HBB
      .Data4(2) = &H0
      .Data4(3) = &HAA
      .Data4(4) = &H0
      .Data4(5) = &H30
      .Data4(6) = &HC
      .Data4(7) = &HAB
   End With

   'Fill PicInfo structure
   With PicInfo
      .Size = Len(PicInfo)                                                    ' Length of structure.
      .Type = IIf(PicType = CF_BITMAP, PICTYPE_BITMAP, PICTYPE_ENHMETAFILE)   ' Type of Picture
      .hPic = hPic                                                            ' Handle to image.
      .Data1 = IIf(PicType = CF_BITMAP, hPal, 0&)                             ' Handle to palette (if bitmap).
      .Data2 = 0&
   End With

   'Create the Picture object.
   RetVal = OleCreatePictureIndirect(PicInfo, Ref_ID, True, IPic)

   'Check if an error ocurred
   If RetVal <> 0 Then
      MsgBox "Create Picture Failed - " & GetErrMsg(RetVal)
      Set IPic = Nothing
      Exit Function
   End If

   'Return the new Picture object.
   Set CreatePicture = IPic

End Function

Private Function GetErrMsg(ErrNum As Long) As String

'OLECreatePictureIndirect return values
   Const E_ABORT = &H80004004
   Const E_ACCESSDENIED = &H80070005
   Const E_FAIL = &H80004005
   Const E_HANDLE = &H80070006
   Const E_INVALIDARG = &H80070057
   Const E_NOINTERFACE = &H80004002
   Const E_NOTIMPL = &H80004001
   Const E_OUTOFMEMORY = &H8007000E
   Const E_POINTER = &H80004003
   Const E_UNEXPECTED = &H8000FFFF

   Select Case ErrNum
   Case E_ABORT
      GetErrMsg = " Aborted"
   Case E_ACCESSDENIED
      GetErrMsg = " Access Denied"
   Case E_FAIL
      GetErrMsg = " General Failure"
   Case E_HANDLE
      GetErrMsg = " Bad/Missing Handle"
   Case E_INVALIDARG
      GetErrMsg = " Invalid Argument"
   Case E_NOINTERFACE
      GetErrMsg = " No Interface"
   Case E_NOTIMPL
      GetErrMsg = " Not Implemented"
   Case E_OUTOFMEMORY
      GetErrMsg = " Out of Memory"
   Case E_POINTER
      GetErrMsg = " Invalid Pointer"
   Case E_UNEXPECTED
      GetErrMsg = " Unknown Error"
   End Select

End Function

#End If



ومن خلال التبويب This Workbook نختار الحدث open ونكتب الكود التالي:
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub
نعود لصفحة العمل ونقوم بإدراج زرأمر ونضغط عليه مرتين و نكتب الكود التالي
CODE
Sub زر1_انقر()
Application.Visible = False
UserForm1.Show
    
    
End Sub

و عند تنفيذ البرنامج عند المعاينة تظهر بالشكل التالي:
MzYxMTU4MQ69692017-10-13_164112
تقبلو تحياتي
http://www.mediafire.com/file/4sux41yusmklri4/%D8%A7%D9%84%D9%85%D8%B9%D8%A7%D9%8A%D9%86%D8%A9+%D9%82%D8%A8%D9%84+%D8%A7%D9%84%D8%B7%D8%A8%D8%A7%D8%B9%D8%A9.xlsm
 
 




توقيع :Kamel meraghni

<big> الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى </big>


142

look/images/icons/i1.gif المعاينة قبل الطباعة
  13-10-2017 06:46 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 107
الجنس :
تاريخ الميلاد : 23-10-1984
قوة السمعة : 754
الاعجاب : 2
معذرة حدث خطئ في كود زر الطباعة والكود هو
CODE
Private Sub CommandButton7_Click()
Application.Visible = True
ActiveSheet.Range("a1:l26").PrintOut copies:=TextBox1.Value
End Sub


وكذلك

ومن خلال التبويب This Workbook نختار الحدث open ونكتب الكود التالي:
CODE
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub



أرجو أن تتقبلو إعتذاري



توقيع :Kamel meraghni

<big> الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى </big>


142

look/images/icons/i1.gif المعاينة قبل الطباعة
  13-10-2017 11:13 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36759
الاعجاب : 186
بارك الله فيك أخي العزيز كامل ومشكور على الموضوع الجميل
وها هو الملف المرفق مرفوع على سيرفر المنتدى لتمام الاستفادة
تقبل وافر تقديري واحترامي
 
 
  المعاينة قبل الطباعة.rar   تحميل rar مرات التحميل :(90)
الحجم :(90.58) KB





look/images/icons/i1.gif المعاينة قبل الطباعة
  14-10-2017 11:44 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 107
الجنس :
تاريخ الميلاد : 23-10-1984
قوة السمعة : 754
الاعجاب : 2
شكرا اخي ياسر



توقيع :Kamel meraghni

<big> الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى </big>


142

look/images/icons/i1.gif المعاينة قبل الطباعة
  14-10-2017 12:41 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس :
الدعوات : 21
قوة السمعة : 20048
الاعجاب : 12
موقعي : زيارة موقعي

جزاكم الله خيرا اخى الكريم 142




توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


look/images/icons/i1.gif المعاينة قبل الطباعة
  16-10-2017 02:12 صباحاً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 23-09-2017
رقم العضوية : 627
المشاركات : 259
الدولة : مصر
الجنس :
تاريخ الميلاد : 14-2-1980
قوة السمعة : 2169
الاعجاب : 1
موقعي : زيارة موقعي
جزاكم الله خيرا أخى الكريم
والشكر موصول للأستاذ القدير // ياسر خليل لرفعه الملف على المنتدى




look/images/icons/i1.gif المعاينة قبل الطباعة
  16-10-2017 08:09 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 107
الجنس :
تاريخ الميلاد : 23-10-1984
قوة السمعة : 754
الاعجاب : 2
وجزيتم بمثله



توقيع :Kamel meraghni

<big> الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى </big>


142

look/images/icons/i1.gif المعاينة قبل الطباعة
  29-10-2017 11:34 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي
جزاكم لله خيرا موضوع اكثر من رائع



توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

look/images/icons/i1.gif المعاينة قبل الطباعة
  25-10-2018 11:21 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 257
الجنس :
تاريخ الميلاد : 7-11-1971
قوة السمعة : 329
الاعجاب : 0
جزاكم الله خيرا اخى الكريم وبارك الله فيك




look/images/icons/i1.gif المعاينة قبل الطباعة
  17-11-2018 03:15 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 13-01-2018
رقم العضوية : 3578
المشاركات : 45
الجنس :
تاريخ الميلاد : 14-8-1968
قوة السمعة : 86
الاعجاب : 1
السلام عليكم ورحمة الله وبركاته شكرا على هذا العطاء ودمتم في صحة وعافية




look/images/icons/i1.gif المعاينة قبل الطباعة
  25-12-2018 12:32 صباحاً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-12-2018
رقم العضوية : 10505
المشاركات : 18
الجنس :
تاريخ الميلاد : 14-1-1970
قوة السمعة : 21
الاعجاب : 0
الله ينور وجزاكم الله كل خير




look/images/icons/i1.gif المعاينة قبل الطباعة
  25-12-2018 02:28 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 12-12-2018
رقم العضوية : 10041
المشاركات : 9
الجنس :
تاريخ الميلاد : 25-10-1982
قوة السمعة : 12
الاعجاب : 0
جزاك الله خيرا 142




look/images/icons/i1.gif المعاينة قبل الطباعة
  25-12-2018 11:25 مساءً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 16-11-2018
رقم العضوية : 9154
المشاركات : 152
الدولة : مصر
الجنس :
قوة السمعة : 206
الاعجاب : 0
موقعي : زيارة موقعي
جزاك الله كل خير




اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 2 < 1 2 >




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
عدم اظهار المعاينة قبل الطباعة بعد تحويل الملف الى exe Abidine48
1 1246 Abidine48

الكلمات الدلالية
المعاينة ، الطباعة ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 08:11 AM