Visual Basic

Public Sub Print_It()<br />
        Try<br />
           Try<br />
                'PrintFont = New Font("Arial", 10)<br />
                Dim pd As PrintDocument = New PrintDocument<br />
                'Assign my overloaded version of the standard print controller<br />
                Dim dt As DataTable = MyDB.GetTableDaftar()<br />
                Dim dv As New DataView(dt)<br />
                dv.RowFilter = "id=" + CType(iddaftar, String)<br />
<br />
                'Install event handlers<br />
                AddHandler pd.BeginPrint, _<br />
                            New PrintEventHandler(AddressOf Me.pd_StartPrint)<br />
                AddHandler pd.PrintPage, _<br />
                            New PrintPageEventHandler(AddressOf Me.pd_PrintPage)<br />
                AddHandler pd.EndPrint, _<br />
                            New PrintEventHandler(AddressOf Me.pd_EndPrint)<br />
                'pd.PrinterSettings.DefaultPageSettings.PaperSize.Width = pd.PrinterSettings.PaperSizes.Item(38).Width<br />
                Dim pkCustomSize1 As New PaperSize("Custom", dv(0)(7), dv(0)(8))<br />
                <br />
                pd.DefaultPageSettings.PaperSize = pkCustomSize1                'Print the document.<br />
                If pd.PrinterSettings.IsValid Then<br />
                    pd.Print()<br />
                End If<br />
            Finally<br />
                'PrintStream.Close()<br />
            End Try<br />
        Catch ex As Exception<br />
            MessageBox.Show(ex.Message)<br />
        End Try