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

返回顶部
查看留言
转到底部

现在的位置: 首页 > 综合 > 正文

RSS

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

2013年11月11日 ⁄ 综合 ⁄ 共 751字 ⁄ 字号小中大 ⁄ 评论关闭

打印

控件: 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