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

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

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

请大家帮我看一下

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

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

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