6

データグリッドビューのコンテンツを印刷できましたが、ポートレートモードに適合しません。横向きで印刷しても大丈夫だと思います。

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=Trueを試しました

しかし、それはうまくいかないようですか？

4

1 に答える 1

8

DefaultPageプリンタの設定を行っています。ドキュメント自体に設定してみてください。

PrintDocument1.DefaultPageSettings.Landscape = True
PrintDocument1.Print()
于 2012-11-25T10:49:00.877 に答える