vb.net - 从用户输入排列的打印

Question

我有一个包含几行用户输入文本框和一个图像的表单。

我希望能够以某种排列方式打印数据。

用户只需按下按钮即可打印。

这是我希望打印输出的示例的链接。

Answer 1

这是一个简单的示例..

Dim pd as New PrintDocument

Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click

     pd.Print()

End Sub

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

    e.Graphics.DrawString(TextBox.Text, TextBox1.Font, Brushes.Black, 100, 100)

    e.Graphics.DrawImage(PictureBox1.Image, 200, 200) '----> imagein picture box

End Sub

添加 ：

居中文本

Dim x as Single = Convert.ToSingle(e.PageBounds.Width / 2 - e.Graphics.MeasureString(TextBox.Text, TextBox1.Font).Width / 2)

e.Graphics.DrawString(TextBox.Text, TextBox1.Font, Brushes.Black, x, 100)