I have a wide datagrid and I would like to print it in landscapge setting. But it always print portrait instead. this is the code I used:

       Dim pd As New PrintDocument
        AddHandler pd.PrintPage, AddressOf Me.pd_PrintPage
       Dim psd As New PageSetupDialog
        Dim printerSet As New PrinterSettings
        pd.DefaultPageSettings.Landscape = True

        printerSet.DefaultPageSettings.Landscape = True
        With psd
            .AllowMargins = True
            .AllowOrientation = True
            .AllowPaper = True
            .ShowHelp = True
            .ShowNetwork = True

            .Document = pd
        End With

       psd.ShowDialog()

        Dim myPaintArgs = New PaintEventArgs(e.Graphics, New Rectangle (New Point(0, 0), DataGrid1.Size))
        Me.InvokePaint(DataGrid1, myPaintArgs)
        pd.Print()


can anybody give me some idea? Thank you!