[ZaerAllail]

كما ذكرت سابقاً 
المشكلة حلها يكون في كود محدد يوضح للطابعه الأمر وهي تنفذ 

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

وسأضعه هنا للفائده 

وشكرا لك أخ مصطفى 
وكل من حاول يجيب ع هذا التساؤل 

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

كود :

       Dim printPrompt As New Windows.Forms.PrintDialog
       printPrompt.PrinterSettings = New System.Drawing.Printing.PrinterSettings
       Rep.PrintOptions.DissociatePageSizeAndPrinterPaperSize = True
       Dim Layout As New CrystalDecisions.Shared.PrintLayoutSettings With {
           .Centered = False,
           .FitHorizontalPages = True
       }
       Rep.PrintToPrinter(printPrompt.PrinterSettings, printPrompt.PrinterSettings.DefaultPageSettings, False, Layout)