هل بالامكان الطباعة على طابعتين بنفس الوقت

[نثغةثمسخبف]

لدي ملف اكسيل . وزر طباعة لتقرير .

هل بالامكان تغيير الامر ليقوم بطباعة التقرير على طابعة متوفرة لدي وبنفس الوقت طباعة التقرير على طابعة افتراضية pdf لحفظ التقرير بشكل ورقة

مع جزيل الشكر

[حسين مامون]

يمكنك اختيار طابعة عن طريق هذا الكود

انسخه الى ملفك وانشئ زر لتنفيده

Option Explicit

Sub choiprinTEST()
Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

 

[أ / محمد صالح]

حسب فهمي للمطلوب يتم تنفيذ أمر الطباعة أولا

ActiveSheet.PrintOut

ثم سطر التصدير إلى. Pdf في نفس مسار ملف الاكسل باسم FileName.pdf الذي يمكن تغييره 

ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "/" & "FileName.pdf", , , False

بالتوفيق 

[نثغةثمسخبف]

الكود هو

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

 

 

هنا في امر الطباعة افوم بالطباعة بحيث لايتم الطباعة لاسطر فارغة بالتقرير

كيف يمكن وضع ما اشرتم اليه هنا من دون ان افقد هذه الخاصية

[حسين مامون]

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 بواسطه حسين مامون

[نثغةثمسخبف]

اخي حسين

شكرا جزيلا على مساعدتك وباعتقادي انه حل يمكن الاعتماد عليه وان كان يلزمني الضغط على زر الطباعة مرتين واختيار الطابعة في كل مرة

ولكن السؤال هل يمكن تعديل الكود للقيام بالطباعة بآن واحد على طابعتين من دون اظهار الطابعة المراد العمل عليها

 

[حسين مامون]

هذا الكود يطبع بطابعتية مختلفتين ولكن ل ادري هل بامكانك عمل مجهود للحصول على اسماء الطابعتين لديك

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 بواسطه حسين مامون

[نثغةثمسخبف]

شكرا جزيلا . تم الامر بالفعل

جعلها الله في ميزان حسناتكم

[حسين مامون]

الحمد لله ان تم الامر

وجزيت خيرا اخي الكريم

تم تعديل نوفمبر 11, 2021 بواسطه حسين مامون