在横向模式下打印vb.net

Question

我已经设法打印我的datagrid视图的内容，但它不适合纵向模式。我想在横向模式下打印它会做。

我有这个代码为我的数据集来填充datagridview。

Private Sub print_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

    Dim query As String = "SELECT * FROM TBLusers" 
    Dim DA As New SqlDataAdapter(query, CN) 
    Dim DS As New DataSet 
    CN.Open() 

    DA.Fill(DS, "Users") 
    CN.Close() 
    DataGridView1.DataSource = DS.Tables("Users") 
    'DataGridView1.DataMember = "Users" 


End Sub 

这里是印刷我猜的功能？我从教程中获得了它。

Private Sub printDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage 

    Dim dataGridViewImage As New Bitmap(Me.DataGridView1.Width, Me.DataGridView1.Height) 
    DataGridView1.DrawToBitmap(dataGridViewImage, New Rectangle(0, 0, Me.DataGridView1.Width, Me.DataGridView1.Height)) 
    e.Graphics.DrawImage(dataGridViewImage, 0, 0) 
End Sub 

这里是打印预览。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 

    PrintPreviewDialog2.Document = PrintDocument1 
    PrintPreviewDialog2.PrintPreviewControl.Zoom = 1 
    PrintPreviewDialog2.ShowDialog() 
End Sub 

和打印...

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

    PrintDocument1.Print() 
End Sub 

我试图
PrintDocument1.PrinterSettings.DefaultPageSettings.Landscape =真

，但它似乎犯规的工作？

Answer 1

您正在设置打印机的DefaultPage设置。 尝试将其设置为文档本身：