主题：求助 设置纸张的问题

下面我设置的打印代码没有问题，但是现在是我想把A4纸改为和A4一样宽的纸张，但是高度是无限的自定义纸，这样打印的时候可以不分页，可以一直把要打印的内容打印完，下面的代码应该怎么改啊。真诚恳请高手给帮忙！！！！！

Dim Book As New XLS.Book(ProjectPath & "Attachments\报表模板\配料表.xls")
Dim fl As String = ProjectPath & "Reports\报表模板\配料表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
With Sheet.PrintSetting
    .PaperKind = 9 '设为A4纸
    .LandScape = False '竖排打印(横向打印改为true)
    .MarginLeft = 12 '左边距设为12毫米
    .MarginRight = 10 '右边距设为10毫米
    .MarginTop = 10 '上边距设为15毫米
    .MarginBottom = 15 '下边距设为15毫米
End With
With Sheet.PrintSetting
    '页眉左边为日期,中间为时间,右边为表名
    '.Header = "&L&D &C&T &R&A"
    '在页脚右边打印页号和总页数
    .Footer = "&R第&P页,总&N页"
End With
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()