Código:
Dim datasetgestioninv As New DataSet_GestionInventario
Private ImpresoraActual As System.Drawing.Printing.PrinterSettings
Dim reporte As New rpt_GestionInventario // aqui colocas el reporte de orden de trabajo
datasetgestioninv = (objllenareportes.GestionInventario(Consec_Inv, Codigo_Loc)) // aqui llenas el dataset
reporte.SetDataSource(datasetgestioninv)//
ImpresoraActual = New System.Drawing.Printing.PrinterSettings
ImpresoraActual.PrinterName = ""//aqui colocas el nombre de la impresora
reporte.PrintOptions.PrinterName = ImpresoraActual.PrinterName
Dim Doc As New System.Drawing.Printing.PrintDocument
Dim Tipo, i As Integer
Doc.PrinterSettings.PrinterName = reporte.PrintOptions.PrinterName
For i = 0 To Doc.PrinterSettings.PaperSizes.Count - 1
If String.Compare(Doc.PrinterSettings.PaperSizes(i).PaperName, "Carta", False) = 0 Then
Tipo = CInt(Doc.PrinterSettings.PaperSizes(i).GetType().GetField("kind", Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic).GetValue(Doc.PrinterSettings.PaperSizes(i)))
reporte.PrintOptions.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.Portrait
reporte.PrintOptions.PaperSize = Tipo
reporte.PrintToPrinter(1, True, 0, 0)
Exit For
End If
Next
