打印/剪贴板的利用/直接打印在窗体上

打印

控件: PrintDialog

代码

PrintDialog1.ShowDialog()

利用剪贴板

Clipboard.SetText(RichTextBox1.Text)
RichTextBox1.Text = Right(RichTextBox1.Text, Len(RichTextBox1.Text) - RichTextBox1.SelectionLength)                   '剪切
'粘贴 richtextbox1.text=clipboard.getText

 

直接在窗体上打印字

 

方式1:

Dim mybrush As
Dim myfont As Font = Me.Font
"WELCOME", myfont, mybrush, New

方式2:​

Me.CreateGraphics.DrawString("Hello Cat", New Font("Arlal", 15), New

打印预览:

控件:PrintPreviewDialog

PrintPreviewDialog1.Show()