2012-11-25 3 views
4

내 DataGrid보기의 내용을 인쇄 할 수는 있지만 세로 모드에서는 맞지 않습니다. 내가 가로 모드로 인쇄 할 것 같아요.가로 모드로 인쇄 vb.net

이 데이터 세트가 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 = 진정한

을 시도하지만 나던 작동하는 것 같다?

답변

4

프린터의 설정은 DefaultPage입니다. 문서 자체로 설정하려고 시도하십시오.

+0

감사합니다. 그것은 일했다! –

+0

어리석은 나를. 나는 똑같은 실수를하고 있었다! Robin에게 감사드립니다 !! –

관련 문제