专家坐堂-不能设置类 PageSetup 的 PaperSize 属性Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim zzlx As String

Dim cps As new CustomPaperSize.CustomPaperSize()

cps.SetPrintForm(dyj.Text,"danju", 100*24, 100*14)

Dim prtdoc As new Printing.PrintDocument()

prtdoc.PrinterSettings.PrinterName = dyj.Text

For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes \'生成打印机的纸张下拉列表

If ps.PaperName = "danju" Then \'\'\'\' "我新增的自定义纸张" Then

zzlx = ps.RawKind

End If

If Relations.Contains("关联1") =False Then

Relations.Add("关联1",t1.Table.DataTable.DataCols("单据编号"),t4.Table.DataTable.DataCols("单据编号"))

End If

Dim filter As String = "\'\',"

Dim fl As String

Dim Book As New XLS.Book(ProjectPath & "Attachments\\销售出库单.xls")

fl = ProjectPath & "Reports\\销售出库单.xls"

book.Sheets(0)(1,9).value = "单据编号 = \'" & t1.Table.Current("单据编号") & "\'"

Book.Build()

Book.Save(fl)

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

With Ws.PageSetup

MessageBox.Show(zzlx)

.PaperSize = zzlx \'\'\'\' MSExcel.XlPaperSize.xlPaperA4 \'纸张大小

.Orientation = MSExcel.xlPageOrientation.xlPortrait \'纵向打印

\'.Orientation = MSExcel.xlPageOrientation.xlLandscape \'横向打印

.CenterHorizontally = True \'页面水平居中

.FitToPagesWide = 1 \'按照1页的宽度打印

End With

Ws.PrintOut(ActivePrinter:= dyj.Value )

wb.save

wb.close

App.Quit

(错误提示: 不能设置类 PageSetup 的 PaperSize 属性)