[حريف برمجة]

(12-11-18, 11:38 PM)عبد العزيز البسكري كتب :

السّلام عليكم و رحمة الله و بركاته

إبتدأت تقريبا منذ عام بالإشتغال على الفيجوال ستيديو .. خلال هذه المدّة إطّلعت على آلاف المشاريع .. و لم ألاحظ يوما ذكر و كتابة اسم الطابعة بأكواد الطباعة أخي الكريم .. إلا قد تكون عن قصد لأغراض أخرى

تحياتي

مرحبا اخي عبدالعزيز البسكري أيضا اخي السائل مرحبا ،،

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

كود :

'Get all Printers
       Dim InstalledPrinters As String

       ' Find all printers installed
       For Each InstalledPrinters In
           System.Drawing.Printing.PrinterSettings.InstalledPrinters
           Me.ComboBox1.Items.Add(InstalledPrinters)
       Next InstalledPrinters
       'End

بخصوص جلب الطابعة الإفتراضية فقط هذا الكود :

كود :

'Get the Default Printer
       Dim objSettings As New Printing.PrinterSettings
       ComboBox1.SelectedText = objSettings.PrinterName.ToString
       'End

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

كود :

Dim rptShippingLabel1 As New CrystalReport1
   Dim PrinterSettings1 As New Printing.PrinterSettings
   Dim PageSettings1 As New Printing.PageSettings

   'Replace it with your printer name
   PrinterSettings1.PrinterName = "Microsoft XPS Document Writer"
   rptShippingLabel1.PrintToPrinter(PrinterSettings1, PageSettings1, False)

بخصوص الطباعة المتعددة بتحديد أكثر من طابعة هذا الكود :

كود :

strSQL = "your select statement"
       Dim crptDV As New ReportDocument()
       Dim da As New SqlDataAdapter(strSQL, SqlCon)
       Dim ds As New DataSet
       da.Fill(ds)
       If ds.Tables(0).Rows.Count = 0 Then
           Exit Sub
       End If
       Dim path As String //Report Path
       crptDV.Load(path & "\reports\ReportName.rpt")
       End If

       crptDV.PrintOptions.PrinterName = PrinterName1
       crptDV.PrintToPrinter(1, True, 0, 0)

       crptDV.PrintOptions.PrinterName = PrinterName2
       crptDV.PrintToPrinter(1, True, 0, 0)
       crptDV.Close()
       crptDV.Dispose()