如标准,PDF打印机不报错,但局域网中的共享打印机报“不能设置类 PageSetup 的 PaperSize 属性”错误。Print Spooler服务已启动。
Dim fl As String = ProjectPath & "Reports\冲压制令单.xls"
With Tables("冲压生产计划追踪表")
If .TopPosition > -1 Then '如果选定区域包括数据行
'******建立主表与制令和出入的关联*********
Relations.Add("制令关联",DataTables("冲压生产计划追踪表").DataCols("制令单号"),DataTables("冲压生产计划追踪表_Table1").DataCols("销售单号"),False,RelationPathEnum.none)
Relations.Add("出入关联",DataTables("冲压生产计划追踪表").DataCols("制令单号"),DataTables("冲压生产计划追踪表_Table5").DataCols("制令单号"),False,RelationPathEnum.none)
Dim ks As Integer = .TopPosition
Dim js As Integer = .BottomPosition
For i As Integer = ks To js
Dim Book As New XLS.Book(ProjectPath & "Attachments\冲压制令单.xls")
.Select(i,0)
'生成条码图片
Dim