[Marayrezdh]

اخي احمد

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

مشكور اخي  لاهتمامك

Private Sub Command2_Click()


crtw.Destination = crptToPrinter

crtw.DataFiles(0) = App.Path + "\test.mdb"

crtw.ReportFileName = App.Path + "\namreport.rpt"


crtw.SelectionFormula = "{tablenam.name}='" + Trim(Text1.Text) + "'"
 
crtw.Action = 1
End Sub