知道了，应该是打印作业完毕后清楚

测试过了，还是不行。慢慢折腾吧，谢谢你！

printdokoa = New PrintDocument
            printdiala = New PrintDialog
            printpagesettings = New PageSettings

            printdokoa.DefaultPageSettings = printpagesettings
            stringtoprint = RichTextBox1.Text
            printdiala.Document = printdokoa
            PageSetupDialog1.PageSettings.PaperSize.Kind = PaperKind.A3

这个代码为什么提示kind为readonly?属性为只读呀？

kind属性为只读，不可以象你这样直接设置。如果要改变打印纸张大小，应当这样：
        Dim myPaperSize = New System.Drawing.Printing.PaperSize("A3", 1169, 1654)
        PageSetupDialog1.PageSettings.PaperSize = myPaperSize

另外，我在29楼给你的项目，你测试后仍会出现你提出的现象吗？不会吧？——我测试过。
如果这测试项目没有重现你的现象，不用再折腾，分析测试项目的思路，逐渐纠正你的代码吧

那请问，A4、B4纸是多少像素？像素是怎么计算的？

按您说的做了，打印是正确，可纸张名称为什么是信纸？

29楼的代码不是有纸张设置的对话框么？可以设置纸张类型，左右上下页边距等？你没测试吗

我是想直接设置，不显示页面设置对话框

object=System.Drawing.Printing.PaperSize()'无参数，表明使用打印机的默认纸张类型，一般为A4纸
object=System.Drawing.Printing.PaperSize(name as string,width as integer,height as integer)'三个参数，一个不可少，第二、三个参数分别表示自定义纸张的宽度和高度，以百分之一英寸为单位，你可以百度下进行换算。例如，A4纸宽度为21CM，高度为29.7CM
则 New System.Drawing.Printing.PaperSize("A4", 827, 1169)

[ 本帖最后由 不说也罢 于 2013-6-3 13:23 编辑 ]

如果自定义打印，那么，pagesetupdialog控件就没有用处了，该写成下面这样的：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            printpagesettings = New PageSettings
            printpagesettings.PaperSize = New System.Drawing.Printing.PaperSize("自定义大小", 827, 1169)
            printpagesettings.Landscape = True
            printpagesettings.Margins.Left = 1 '以百分之一英寸为单位,这是设置打印的左边距
            '.....右边距，上、下
            PrintDocument1.DefaultPageSettings = printpagesettings
            stringtoprint = RichTextBox2.Text
            PrintDialog1.Document = PrintDocument1
            PrintDialog1.PrinterSettings.Copies = 1 ''打印的份数
            If PrintDialog1.ShowDialog = DialogResult.OK Then
                AddHandler PrintDocument1.PrintPage, AddressOf Me.printgraphicYDxukezheng '打印的精准度就靠你在这个过程里设置了
                PrintDocument1.Print()
                PrintDocument1.Dispose()
                RemoveHandler PrintDocument1.PrintPage, AddressOf Me.printgraphicYDxukezheng
            End If
        Catch ex As Exception
            MessageBox.Show("打印出现错误", ex.ToString())
        End Try

    End Sub