Dim PrintDialog As System.ArithmeticException
Dim dy As New PrintDialog
dy = PrintDialog1
dy.ShowDialog()

不知道哪里错了 就是想连接到打印机

都没人回答吗

PrintDialog有Document属性，不知你设置了没有？