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

最新推荐文章于 2022-09-02 14:58:12 发布

原创最新推荐文章于 2022-09-02 14:58:12 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

VB.NET 专栏收录该内容

31 篇文章

订阅专栏

本文介绍了在应用程序中实现打印功能的不同方法，包括使用PrintDialog控件进行打印对话框设置，利用剪贴板复制文本，以及直接在窗体上绘制文本进行打印预览等。通过具体的代码示例展示了如何操作。

打印

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