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

打印

控件: PrintDialog

代码

1. PrintDialog1.ShowDialog()

利用剪贴板

1. Clipboard.SetText(RichTextBox1.Text)'复制
3. Clipboard.SetText(RichTextBox1.Text)
4. RichTextBox1.Text=Right(RichTextBox1.Text,Len(RichTextBox1.Text)-RichTextBox1.SelectionLength)'剪切
5. '粘贴 richtextbox1.text=clipboard.getText

直接在窗体上打印字

方式1:

1. DimmygraphAsGraphics=Me.CreateGraphics
2. DimmybrushAsDrawing.Brush=Brushes.Blue
3. DimmyfontAsFont=Me.Font
4. mygraph.DrawString("WELCOME",myfont,mybrush,NewPoint(200,200))

方式2:

1. Me.CreateGraphics.DrawString("HelloCat",NewFont("Arlal",15),NewSolidBrush(Color.FromArgb(Rnd()*255,Rnd()*255,Rnd()*255)),Rnd()*Width,Rnd()*Height)

打印预览:

控件:PrintPreviewDialog

1. PrintPreviewDialog1.Show()