نثغةثمسخبف قام بنشر نوفمبر 7, 2021 مشاركة قام بنشر نوفمبر 7, 2021 لدي ملف اكسيل . وزر طباعة لتقرير . هل بالامكان تغيير الامر ليقوم بطباعة التقرير على طابعة متوفرة لدي وبنفس الوقت طباعة التقرير على طابعة افتراضية pdf لحفظ التقرير بشكل ورقة مع جزيل الشكر رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر نوفمبر 8, 2021 مشاركة قام بنشر نوفمبر 8, 2021 يمكنك اختيار طابعة عن طريق هذا الكود انسخه الى ملفك وانشئ زر لتنفيده Option Explicit Sub choiprinTEST() Application.Dialogs(xlDialogPrinterSetup).Show End Sub رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر نوفمبر 8, 2021 أفضل إجابة مشاركة قام بنشر نوفمبر 8, 2021 حسب فهمي للمطلوب يتم تنفيذ أمر الطباعة أولا ActiveSheet.PrintOut ثم سطر التصدير إلى. Pdf في نفس مسار ملف الاكسل باسم FileName.pdf الذي يمكن تغييره ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "/" & "FileName.pdf", , , False بالتوفيق 2 رابط هذا التعليق شارك More sharing options...
نثغةثمسخبف قام بنشر نوفمبر 8, 2021 الكاتب مشاركة قام بنشر نوفمبر 8, 2021 الكود هو Sub MyPrint() Application.ScreenUpdating = False With Sheets(" Print_Report") With .Range("B10:I20") For i = 1 To .Rows.Count If .Cells(i, 1).Value = "" Then .Cells(i, 1).EntireRow.Hidden = True End If Next i End With .PrintOut .Rows.Hidden = False End With Application.ScreenUpdating = True End Sub هنا في امر الطباعة افوم بالطباعة بحيث لايتم الطباعة لاسطر فارغة بالتقرير كيف يمكن وضع ما اشرتم اليه هنا من دون ان افقد هذه الخاصية رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر نوفمبر 9, 2021 مشاركة قام بنشر نوفمبر 9, 2021 (معدل) Sub MyPrint() Dim i Application.ScreenUpdating = False With Sheets(" Print_Report") With .Range("B10:I20") For i = 1 To .Rows.Count If .Cells(i, 1).Value = "" Then .Cells(i, 1).EntireRow.Hidden = True End If Next i End With '========================== Application.Dialogs(xlDialogPrinterSetup).Show '========================== .PrintOut .Rows.Hidden = False End With Application.ScreenUpdating = True End Sub تم تعديل نوفمبر 9, 2021 بواسطه حسين مامون رابط هذا التعليق شارك More sharing options...
نثغةثمسخبف قام بنشر نوفمبر 9, 2021 الكاتب مشاركة قام بنشر نوفمبر 9, 2021 اخي حسين شكرا جزيلا على مساعدتك وباعتقادي انه حل يمكن الاعتماد عليه وان كان يلزمني الضغط على زر الطباعة مرتين واختيار الطابعة في كل مرة ولكن السؤال هل يمكن تعديل الكود للقيام بالطباعة بآن واحد على طابعتين من دون اظهار الطابعة المراد العمل عليها رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر نوفمبر 10, 2021 مشاركة قام بنشر نوفمبر 10, 2021 (معدل) هذا الكود يطبع بطابعتية مختلفتين ولكن ل ادري هل بامكانك عمل مجهود للحصول على اسماء الطابعتين لديك Sub print1() Dim s, u s = "Canon MF3010 sur Ne07:" ' اسم الطابعة الاولى u = "HP LaserJet P1005 sur Ne03:" 'اسم الطابعة الثانية '=============== Application.ActivePrinter = s Range("a1:e10").PrintOut ' الطباعة بالطابعة الاولى '=============== Application.ActivePrinter = u Range("a1:e10").PrintOut ' الطباعة بالطابعة الثانية End Sub وهذا الرابط للحصول على اسم الطابعة تم تعديل نوفمبر 10, 2021 بواسطه حسين مامون 1 رابط هذا التعليق شارك More sharing options...
نثغةثمسخبف قام بنشر نوفمبر 10, 2021 الكاتب مشاركة قام بنشر نوفمبر 10, 2021 شكرا جزيلا . تم الامر بالفعل جعلها الله في ميزان حسناتكم رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر نوفمبر 11, 2021 مشاركة قام بنشر نوفمبر 11, 2021 (معدل) الحمد لله ان تم الامر وجزيت خيرا اخي الكريم تم تعديل نوفمبر 11, 2021 بواسطه حسين مامون رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان