主题：我做了一个打印预览，预览是出来了，可是预览的确实一片空白，请问这是为什么啊？

我做了一个打印预览，预览是出来了，可是预览的确实一片空白，请问这是为什么啊？代码如下：

If Functions.Execute("ShouQuan","A-材料出库单","7-打印")   Then
    Dim Book As New XLS.Book(ProjectPath & "Attachments\材料出库单.xls")
    Dim fl As String = ProjectPath & "Reports\材料出库单.xls"
    Book.Build() '生成细节区
    Book.Save(fl) '保存工作簿
    Dim doc As New PrintDoc
    doc.Preview()
Else
    Messagebox.Show("对不起,你没有操作权限")
End If

请大家帮我看一下

前面是excel报表，后面预览一个专业报表，什么意思？

If Functions.Execute("ShouQuan","A-材料出库单","7-打印")   Then
    Dim Book As New XLS.Book(ProjectPath & "Attachments\材料出库单.xls")
    Dim fl As String = ProjectPath & "Reports\材料出库单.xls"
    Book.Build() '生成细节区
    Book.Save(fl) '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File = fl
    Proc.Start()
Else
    Messagebox.Show("对不起,你没有操作权限")
End If

我做了一个打印预览，预览是出来了，可是预览的效果如上图所示，是一片空白，请问这是为什么啊？代码如下：

If Functions.Execute("ShouQuan","A-材料出库单","7-打印")   Then
    Dim Book As New XLS.Book(ProjectPath & "Attachments\材料出库单.xls")
    Dim fl As String = ProjectPath & "Reports\材料出库单.xls"
    Book.Build() '生成细节区
    Book.Save(fl) '保存工作簿
    Dim doc As New PrintDoc
    doc.Preview()
Else
    Messagebox.Show("对不起,你没有操作权限")
End If

请问，我如何在上图的空白处(右侧)显示预览的效果，另外，如果想实现连续打印，代码又该怎么调整？

老兄，二楼不是告诉你原因了吗？ 而且给你贴出了正确的代码。

如果要直接打印， 看看：

http://www.foxtable.com/help/topics/1145.htm