Question

我有一个包含多个用户输入的TextBox行和一个图像的表单。

我希望能够以某种安排打印数据。

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

这是我想要打印输出的示例的a link。

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)

打印从用户输入排列

1 个答案: