A4 OR B5 مساعده في كود طباعة ملف بي دي اف خارجي وفي نفس الوقت تحديد حجم الورقه

[hosslom]

السلام عليكم اخواني الكرام عمالقة الأكسس

محتاج مساعده في كود زر لطباعه ملف بي دي خارجي وفي نفس الوقت التحكم في خصائص  ورقة الطباعة لهذا الملف مثل حجمها 

A4 , B5, A5, Letter

ارجو ان تكون وصلت فكرتي

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

[jjafferr]

وعليكم السلام 🙂

 

عند التصدير لملف pdf ، يجب ان تصدر احد الكائنات الموجودة مثل تقرير او نموذج او استعلام او جدول ، ولا يمكن تصدير مجرد سجلات ،

لذا يمكنك عمل تقرير بالحجم الذي تريد ، A5 مثلا ، ولما تعمل له تصدير ، سيحتفظ الملف بهذا الحجم 🙂

 

وهذا الرابط فيه شرح اكثر ، وسطر كود التصدير :

 

 

جعفر

[Eng.Qassim]

4 ساعات مضت, hosslom said:

السلام عليكم اخواني الكرام عمالقة الأكسس

محتاج مساعده في كود زر لطباعه ملف بي دي خارجي وفي نفس الوقت التحكم في خصائص  ورقة الطباعة لهذا الملف مثل حجمها 

A4 , B5, A5, Letter

ارجو ان تكون وصلت فكرتي

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

1- قم بعمل موديول واكتب الكود التالي :

Public Const SW_SHOWMINNOACTIVE = 7

Public Declare PtrSafe Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" (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

2- اعمل زر طباعة وفي حدث عن النقر اكتب الكود التالي:

Dim lngRetVal As Variant
Dim strFolder As String
'****************** USER DEFINED ******************
Const conFilePath As String = "C:\Test\Test.pdf"
'**************************************************
'Extract the Working Folder
strFolder = Left$(conFilePath, InStrRev(conFilePath, "\") - 1)
lngRetVal = ShellExecute(0, "Print", conFilePath, "", strFolder,SW_SHOWMINNOACTIVE)

3- قم بتغيير مسار الملف حسب ماموجود عندك

تم تعديل يوليو 1, 2021 بواسطه jjafferr
وضع الكود بالطريقة الصحيحة بإستخدام <> القائمة

[hosslom]

اخي الاستاذ جعفر

 

انا احتاج تغيير خصائص حجم الورقه لملف البي دي اف نفسه بعد التصدير وليس تقرير الاكسس

لانه كما تعلم عند طباعه تقرير اكسس A4 

وتغيير حجمه بالكود ل A5

لايتناسب التقرير مع حجم الحقول

ويظهر التقرير كانه مقصوص

ارجو ان تكون فكرتي قد وصلت

وجزاك الله كل خير