发布于 2013-06-16 23:11:26
这是一个简单的样品。
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)
https://stackoverflow.com/questions/17137027
复制相似问题