Vbscript ReportViewer中的打印预览显示空白屏幕

以下是新页面设置的代码：

Dim newPageSettings As New PageSettings
newPageSettings.Margins = New Margins(20, 20, 20, 20)
newPageSettings.Landscape = True
Dim paperSize As PaperSize = New PaperSize()
paperSize.RawKind = PaperKind.A4
newPageSettings.PaperSize = paperSize
ReportViewer1.SetPageSettings(newPageSettings)
Me.ReportViewer1.RefreshReport()

调试系统后，单击ReportViewer中的打印预览，屏幕显示如下：

---

我真的不知道这是怎么发生的。请帮忙。谢谢。

我已经找到了上述问题的解决方案。我没有使用编码来设置打印预览的设置，而是更改了rdlc中的报告设置。有关更多信息，请参见下图：