打印
控件: PrintDialog
代码
- PrintDialog1.ShowDialog()
利用剪贴板
- Clipboard.SetText(RichTextBox1.Text) '复制
- Clipboard.SetText(RichTextBox1.Text)
- RichTextBox1.Text = Right(RichTextBox1.Text, Len(RichTextBox1.Text) - RichTextBox1.SelectionLength) '剪切
- '粘贴 richtextbox1.text=clipboard.getText
直接在窗体上打印字
方式1:
- Dim mygraph As Graphics = Me.CreateGraphics
- Dim mybrush As Drawing.Brush = Brushes.Blue
- Dim myfont As Font = Me.Font
- mygraph.DrawString("WELCOME", myfont, mybrush, New Point(200, 200))
方式2:
- Me.CreateGraphics.DrawString("Hello Cat", New Font("Arlal", 15), New SolidBrush(Color.FromArgb(Rnd() * 255, Rnd() * 255, Rnd() * 255)), Rnd() * Width, Rnd() * Height)
打印预览:
控件:PrintPreviewDialog
- PrintPreviewDialog1.Show()