Solidworks拼图打印程序（源码公布） - iCAx开思网

swApp.SetUserPreferenceToggle swTiffPrintScaleToFit, False
swApp.SetUserPreferenceIntegerValue swTiffScreenOrPrintCapture, 1
swApp.SetUserPreferenceIntegerValue swTiffImageType, 0
swApp.SetUserPreferenceIntegerValue swTiffCompressionScheme, 2
swApp.SetUserPreferenceIntegerValue swTiffPrintDPI, 300
swApp.SetUserPreferenceIntegerValue swTiffPrintPaperSize, 12
swApp.SetUserPreferenceIntegerValue swTiffPrintScaleFactor, 100
swApp.SetUserPreferenceDoubleValue swTiffPrintDrawingPaperHeight, DrawingPaperHeight
swApp.SetUserPreferenceDoubleValue swTiffPrintDrawingPaperWidth, DrawingPaperWidth

复制代码

Imports SldWorks
Imports System.Drawing.Printing
Module canshu
Public SwFiles() As String 'SolidWorks 文件列表，可能包含临时文件，故不能直接使用
Public SwFile As String 'solidworks工程图文件
Public SwFinalFiles() As String '对swfiles（）进行提取，作为最终的文件列表
Public tmpSaveDir() As String '临时文件存放目录的集合
Public tmpSavefile As String '临时文件存放的目录
Public workDir As String '存放solidworksw文件的文件夹
Public swApp As SldWorks.SldWorks 'solidworks 主程序
Public swMod As ModelDoc2 'solidworks 模型
Public swDoc As SldWorks.DrawingDoc 'solidworks 图纸文档
Public swSheet As SldWorks.Sheet '文件内的图纸
Public intSheetCount As Integer '图纸的数量
Public mysheet() As Object 'sheet列表
Public stWidth As Double 'sheet的宽
Public stHeight As Double 'sheet的高
Public tmpInt As Integer '临时变量，
Public strTmp As String '临时字符串，具有各种作用
'设置输出时的DPI，这是sw能输出的列表里抄的
Public userDPI() As Integer = {50, 72, 100, 150, 200, 240, 300, 360, 400, 600, 720, 800, 1200, 1440, 2880}
Public intDPI As Integer '转换时，选择的dpi
Public swDrawCollecton As New swDrawsAll '图纸的集合
Public swSingleDraw As SwDraw '一张单独的图纸
Public boolstatus As Boolean '各种状态，为了便于直接copy vba
Public myPrinters() As String '打印机列表
Public PrintSize() As String = {"A1(880×50米)", "A2(620×50米)"}
Public poList(7) As Integer '表示插入位置的数组
Public CountAsA4 As Integer '折换成A4的数量
Public paperPager As Integer = 1 '表示的是拼合后的第几张图纸
Public checkA2() As Integer '集合中的那些元素是A2图纸
Public checkA3() As Integer
Public checkA4() As Integer
Public x, y, z, j, k As Integer
Public A2exist, A3exist, A4exist As Boolean
Public paperCount As Integer '最终要打印的图纸的数量
Public paperLeft As Integer '剩余图纸的数量
Public A2Current As Integer '当前的各种大小图纸是该型图中的第几张
Public A3Current As Integer
Public A4Current As Integer
Public onePaper As ptPaper
Public FinalPapers As ptPaperAll
Public newImage As Image
Public singleImage As Image
Public newBMape As Bitmap
Public myImage As Image
Public g1 As Graphics
Public theX, theY, theWidth, theHeight As Integer '填充图片时用到的坐标值
Public WithEvents PT1 As New PrintDocument
Public PgSet As PageSettings
Public PgSize As PaperSize
Public PTResolution As PrinterResolution
Private Sub PT1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PT1.PrintPage
e.Graphics.DrawImage(newBMape, 10, 10)
End Sub
End Module

复制代码

Imports System.IO
Imports System.Drawing.Printing
Public Class Form1
Sub getFiles()
strTmp = "$"
If File.Exists(workDir) Then
If workDir.EndsWith(".slddrw", True, Nothing) And InStr(workDir, strTmp) = 0 Then
ListBox1.Items.Add(workDir)
End If
Else
Dim i As Integer = 0
'临时文件包含此字符，如果文件名包括此字符，应该排除此项
SwFiles = Directory.GetFiles(workDir, "*.slddrw", SearchOption.AllDirectories)
For Each myfile As String In SwFiles
If InStr(myfile, strTmp) = 0 Then
ListBox1.Items.Add(myfile)
End If
Next
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
FBD1.ShowDialog()
workDir = FBD1.SelectedPath
If workDir <> "" Then
getFiles()
End If
End Sub
Private Sub Form1_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop
Dim myfiles() As String
myfiles = e.Data.GetData(DataFormats.FileDrop)
For i = 0 To myfiles.GetUpperBound(0)
workDir = myfiles(i) '检入文件夹
getFiles()
Next
End Sub
Private Sub Form1_DragEnter(sender As Object, e As DragEventArgs) Handles Me.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.All
End If
End Sub
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
If Not swApp Is Nothing Then
If MsgBox("在退出时是否关闭solidworks程序？", MsgBoxStyle.YesNo) = MsgBoxResult.Ok Then
swApp.ExitApp()
swApp = Nothing
End If
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CboxShowSW.Checked = True
For Each ptName As String In PrinterSettings.InstalledPrinters
cbxPtA4.Items.Add(ptName)
cbxPtOut.Items.Add(ptName)
Next
cbxPtA4.SelectedIndex = 0
cbxPtOut.SelectedIndex = 0
For i As Integer = 0 To userDPI.GetUpperBound(0)
cbxDpi.Items.Add(userDPI(i))
Next
cbxDpi.SelectedIndex = 6
intDPI = cbxDpi.Items(cbxDpi.SelectedIndex)
For i = 0 To PrintSize.GetUpperBound(0)
CBoxPaperSize.Items.Add(PrintSize(i))
Next
CBoxPaperSize.SelectedIndex = 0
RadioButtonHigh.Checked = True
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
loadsw()
End Sub
Private Sub cbxDpi_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxDpi.SelectedIndexChanged
intDPI = cbxDpi.Items(cbxDpi.SelectedIndex)
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
ListBox1.Items.Clear()
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
For i = 0 To ListBox1.SelectedItems.Count - 1
ListBox1.Items.Remove(ListBox1.SelectedItems(0))
Next
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs)
End Sub
Private Sub cbxPtTiff_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxPtOut.SelectedIndexChanged
PT1.PrinterSettings.PrinterName = cbxPtOut.SelectedItem
End Sub
Private Sub ListLargePapers_DoubleClick(sender As Object, e As EventArgs) Handles ListLargePapers.DoubleClick
If ListLargePapers.SelectedIndex <> -1 Then
swApp.OpenDoc(ListLargePapers.SelectedItem, 3)
End If
End Sub
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
MsgBox("本程序完全免费！！" & vbCrLf & "编写此程序一是为了为大家提供便利，二是为了展示我们作为专利代理人，在机械设计方面的实力" & vbCrLf & "如果您想要申请专利，欢迎联系我。郜文刚，QQ:258453495")
End Sub
End Class

复制代码

Module paperRelated
'重置列表数组
Sub reSetpoList()
For i = 0 To poList.GetUpperBound(0)
poList(i) = 0
Next
End Sub
Sub getA2s()
x = 0
y = 0
z = 0
A2exist = False
A3exist = False
A4exist = False
For Each aaa As SwDraw In swDrawCollecton
If aaa.PaperSize = "A2" Then
x += 1
End If
If aaa.PaperSize = "A3" Then
y += 1
End If
If aaa.PaperSize = "A4" Then
z += 1
End If
Next
If x <> 0 Then
A2exist = True
ReDim checkA2(x - 1)
End If
If y <> 0 Then
A3exist = True
ReDim checkA3(y - 1)
End If
If z <> 0 Then
A4exist = True
ReDim checkA4(z - 1)
End If
x = 0
y = 0
z = 0
For i = 0 To swDrawCollecton.Count - 1
If swDrawCollecton.Item(i).PaperSize = "A2" Then
checkA2(x) = i
x += 1
End If
If swDrawCollecton.Item(i).PaperSize = "A3" Then
checkA3(y) = i
y += 1
End If
If swDrawCollecton.Item(i).PaperSize = "A4" Then
checkA4(z) = i
z += 1
End If
Next
CountAsA4 = x * 4 + y * 2 + z
End Sub
Sub fillPaper()
'将图纸进行排序
If CountAsA4 Mod 8 <> 0 Then
paperCount = CountAsA4 \ 8 + 1
Else : paperCount = CountAsA4 \ 8
End If
paperLeft = swDrawCollecton.Count
A2Current = 0
A3Current = 0
A4Current = 0
j = 0
FinalPapers = New ptPaperAll
For i = 0 To paperCount - 1
'填充图纸
'清空标志数组
reSetpoList()
onePaper = New ptPaper
onePaper.inNerPapers = New swDrawsAll
'<>1,说明图纸未填满
Do While poList(7) <> 1
'装填A2
If A2exist = True And A2Current <> x Then
'往前装填
If poList(0) = 0 Then
swDrawCollecton.Item(checkA2(A2Current)).insertPosX = 0
swDrawCollecton.Item(checkA2(A2Current)).insertPosY = 0
onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA2(A2Current)))
poList(0) = 1
poList(1) = 1
poList(4) = 1
poList(5) = 1
A2Current += 1
'A2不存在或者已被填充完毕
If A2Current = x Then A2exist = False
End If
If A2exist = True And poList(0) = 1 And poList(2) = 0 Then
'往后装填
swDrawCollecton.Item(checkA2(A2Current)).insertPosX = 2
swDrawCollecton.Item(checkA2(A2Current)).insertPosY = 0
onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA2(A2Current)))
poList(2) = 1
poList(3) = 1
poList(6) = 1
poList(7) = 1
A2Current += 1
'A2不存在或者已被填充完毕
If A2Current = x Then A2exist = False
End If
End If 'A2装填完毕
'装填A3
If A3exist = True And A3Current <> y And A2exist = False Then
'第一个格子
If poList(0) = 0 Then
swDrawCollecton.Item(checkA3(A3Current)).insertPosX = 0
swDrawCollecton.Item(checkA3(A3Current)).insertPosY = 0
onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA3(A3Current)))
poList(0) = 1
poList(1) = 1
A3Current += 1
'A3不存在或者已被填充完毕
If A3Current = y Then A3exist = False
End If
'第一个格子已填，检查第二个格子
If A3exist = True And poList(0) = 1 And poList(2) = 0 Then
swDrawCollecton.Item(checkA3(A3Current)).insertPosX = 2
swDrawCollecton.Item(checkA3(A3Current)).insertPosY = 0
onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA3(A3Current)))
poList(2) = 1
poList(3) = 1
A3Current += 1
'A3不存在或者已被填充完毕
If A3Current = y Then A3exist = False
End If
'第二个格子已填，检查第三个格子
If A3exist = True And poList(0) = 1 And poList(2) = 1 And poList(4) = 0 Then
swDrawCollecton.Item(checkA3(A3Current)).insertPosX = 0
swDrawCollecton.Item(checkA3(A3Current)).insertPosY = 1
onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA3(A3Current)))
poList(4) = 1
poList(5) = 1
A3Current += 1
'A3不存在或者已被填充完毕
If A3Current = y Then A3exist = False
End If
'第三个格子已填，检查第四个格子
If A3exist = True And poList(0) = 1 And poList(2) = 1 And poList(4) = 1 And poList(6) = 0 Then
swDrawCollecton.Item(checkA3(A3Current)).insertPosX = 2
swDrawCollecton.Item(checkA3(A3Current)).insertPosY = 1
onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA3(A3Current)))
poList(6) = 1
poList(7) = 1
A3Current += 1
'A3不存在或者已被填充完毕
If A3Current = y Then A3exist = False
End If 'A3检查完毕
End If 'A3填装完毕
'开始填装A4
If A3exist = False And A4Current <> z And A2exist = False And A4exist = True Then
'检查A4的第一个格子
If poList(0) = 0 Then
swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 0
swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 0
onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
poList(0) = 1
A4Current += 1
'A4不存在或者已被填充完毕
If A4Current = z Then A4exist = False
End If
'检查A4的第二个格子
If A4exist = True And poList(0) = 1 And poList(1) = 0 Then
swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 1
swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 0
onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
poList(1) = 1
A4Current += 1
'A4不存在或者已被填充完毕
If A4Current = z Then A4exist = False
End If
'检查A4的第三个格子
If A4exist = True And poList(0) = 1 And poList(1) = 1 And poList(2) = 0 Then
swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 2
swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 0
onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
poList(2) = 1
A4Current += 1
'A4不存在或者已被填充完毕
If A4Current = z Then A4exist = False
End If
'检查A4的第四个格子
If A4exist = True And poList(0) = 1 And poList(1) = 1 And poList(2) = 1 And poList(3) = 0 Then
swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 3
swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 0
onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
poList(3) = 1
A4Current += 1
'A4不存在或者已被填充完毕
If A4Current = z Then A4exist = False
End If
'检查A4的第五个格子
If A4exist = True And poList(0) = 1 And poList(1) = 1 And poList(2) = 1 And poList(3) = 1 And poList(4) = 0 Then
swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 0
swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 1
onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
poList(4) = 1
A4Current += 1
'A4不存在或者已被填充完毕
If A4Current = z Then A4exist = False
End If
'检查A4的第六个格子
If A4exist = True And poList(0) = 1 And poList(1) = 1 And poList(2) = 1 And poList(3) = 1 And poList(4) = 1 And poList(5) = 0 Then
swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 1
swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 1
onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
poList(5) = 1
A4Current += 1
'A4不存在或者已被填充完毕
If A4Current = z Then A4exist = False
End If
'检查A4的第七个格子
If A4exist = True And poList(0) = 1 And poList(1) = 1 And poList(2) = 1 And poList(3) = 1 And poList(4) = 1 And poList(5) = 1 _
And poList(6) = 0 Then
swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 2
swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 1
onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
poList(6) = 1
A4Current += 1
'A4不存在或者已被填充完毕
If A4Current = z Then A4exist = False
End If
'检查A4的第八个格子
If A4exist = True And poList(0) = 1 And poList(1) = 1 And poList(2) = 1 And poList(3) = 1 And poList(4) = 1 And poList(5) = 1 _
And poList(6) = 1 And poList(7) = 0 Then
swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 3
swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 1
onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
poList(7) = 1
A4Current += 1
'A4不存在或者已被填充完毕
If A4Current = z Then A4exist = False
End If
End If
'剩余图纸的数量减一
paperLeft -= 1
If paperLeft = 0 Then
Exit Do
End If
Loop
FinalPapers.Add(onePaper)
Next
onePaper = Nothing
End Sub
End Module

复制代码

Imports System.Drawing
Imports System.Drawing.Graphics
Module PictureRelated
Sub joinPicture()
'每一张大图
Dim mm As Integer = 1
For Each ds As ptPaper In FinalPapers
'图片大小
newBMape = New Bitmap(CInt(841 * intDPI / 25.4), CInt(594 * intDPI / 25.4))
'设置分辨率
newBMape.SetResolution(intDPI, intDPI)
g1 = Graphics.FromImage(newBMape)
g1.Clear(Color.White)
For Each sdraw As SwDraw In ds.inNerPapers
myImage = Image.FromFile(sdraw.drawDir)
If sdraw.PaperSize = "A2" Then
myImage.RotateFlip(RotateFlipType.Rotate90FlipNone)
'如果是A2，则宽高翻转，同时将图像进行90度翻转
theHeight = CInt(sdraw.drawWidth * intDPI / 25.4)
theWidth = CInt(sdraw.drawHeight * intDPI / 25.4)
Else
theHeight = CInt(sdraw.drawHeight * intDPI / 25.4)
theWidth = CInt(sdraw.drawWidth * intDPI / 25.4)
End If
If sdraw.PaperSize = "A4" Then
theX = CInt(sdraw.insertPosX * intDPI * 210 / 25.4)
theY = CInt(sdraw.insertPosY * intDPI * 297 / 25.4)
End If
If sdraw.PaperSize = "A3" Then
theX = CInt(sdraw.insertPosX * intDPI * 210 / 25.4)
theY = CInt(sdraw.insertPosY * intDPI * 297 / 25.4)
End If
If sdraw.PaperSize = "A2" Then
theX = CInt(sdraw.insertPosX * intDPI * 210 / 25.4)
theY = CInt(sdraw.insertPosY * intDPI * 297 / 25.4)
End If
g1.DrawImage(myImage, theX, theY)
myImage.Dispose()
Next
If Form1.CBoxPaperSize.SelectedIndex = 1 Then
newBMape.RotateFlip(RotateFlipType.Rotate90FlipNone)
End If
If Form1.CBoxPrint.Checked = True Then
printThepaper()
End If
If Form1.CBoxPicSave.Checked = True Then
newBMape.Save(Application.StartupPath + "\outputimage\xx" + mm.ToString + ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
End If
mm += 1
g1.Dispose()
newBMape.Dispose()
Next
End Sub
End Module

复制代码

Imports System.IO
Imports System.Drawing.Printing
Module printRelated
Sub printThepaper()
If Form1.CBoxPaperSize.SelectedIndex = 0 Then
PgSize = New PaperSize("myA1", 3311, 2339)
Else
PgSize = New PaperSize("myA2", 2339, 3311)
End If
PTResolution = New PrinterResolution
If Form1.RadioButtonHigh.Checked Then
PTResolution.Kind = PrinterResolutionKind.High
End If
If Form1.RadioButtonFollowDpi.Checked Then
PTResolution.Kind = PrinterResolutionKind.Custom
PTResolution.X = intDPI
PTResolution.Y = intDPI
End If
PT1.DefaultPageSettings.PaperSize = PgSize
PT1.DefaultPageSettings.PrinterResolution = PTResolution
PT1.Print()
End Sub
End Module

复制代码

Public Class ptPaper
'每个图纸里的小图纸
Public inNerPapers As swDrawsAll
End Class

复制代码

Public Class ptPaperAll
Inherits CollectionBase
Public Sub Add(ByVal newPaper As ptPaper)
Me.List.Add(newPaper)
End Sub
Public Sub Remove(ByVal oldPaper As ptPaper)
Me.List.Remove(oldPaper)
End Sub
Default Public Property Item(ByVal index As Integer) As ptPaper
Get
Return CType(Me.List(index), ptPaper)
End Get
Set(value As ptPaper)
Me.List.Item(index) = value
End Set
End Property
End Class

复制代码

Public Class SwDraw
Public drawDir As String 'directory of a drawing
Public drawSheetName As String 'sheet of a drawing 工程图文件中的图纸1，图纸2，等等
Public drawHeight As Single '图纸的大小
Public drawWidth As Single
Public PaperSize As String
Public mysheet As SldWorks.Sheet
Public sheetCount As Integer
Public paperNumber As Integer '位于第几张图纸
Public insertPosX As Integer '在图纸中插入时的位置编号
Public insertPosY As Integer '在图纸中插入时的位置编号
End Class

复制代码

Public Class swDrawsAll
Inherits CollectionBase
Public Sub Add(ByVal newDraw As SwDraw)
Me.List.Add(newDraw)
End Sub
Public Sub Remove(ByVal oldDraw As SwDraw)
Me.List.Remove(oldDraw)
End Sub
Default Public Property Item(ByVal index As Integer) As SwDraw
Get
Return CType(Me.List(index), SwDraw)
End Get
Set(value As SwDraw)
Me.List.Item(index) = value
End Set
End Property
End Class

复制代码

Imports SwConst
Imports System.Drawing.Printing
Imports SldWorks
Imports System.IO
Module swRelated
Public Sub loadsw()
ReDim SwFinalFiles(Form1.ListBox1.Items.Count - 1)
'将列表装入数组
For ix As Integer = 0 To SwFinalFiles.GetUpperBound(0)
SwFinalFiles(ix) = Form1.ListBox1.Items(ix)
Next
If SwFinalFiles.Length <> 0 Then
Form1.PSbar1.Maximum = SwFinalFiles.GetUpperBound(0)
Form1.PSbar1.Minimum = 0
swApp = New SldWorks.SldWorks
If Form1.CboxShowSW.Checked = True Then
swApp.Visible = True
Else : swApp.Visible = False
End If
MsgBox("即将开始，建议关闭所有程序以保证足够内存")
Dim i As Integer
For i = 0 To SwFinalFiles.GetUpperBound(0)
Try
Form1.PSbar1.Value = i
swMod = swApp.OpenDoc(SwFinalFiles(i), 3)
swDoc = swMod
'图片颜色变成黑白
boolstatus = swApp.SetUserPreferenceIntegerValue(swUserPreferenceIntegerValue_e.swTiffImageType, swTiffImageType_e.swTiffImageBlackAndWhite)
'图片分辨率设为选定值
boolstatus = swApp.SetUserPreferenceIntegerValue(swUserPreferenceIntegerValue_e.swTiffPrintDPI, intDPI)
'图片存放的目录全名
intSheetCount = swDoc.GetSheetCount '文件中图纸数量
mysheet = swDoc.GetSheetNames '图纸名称列表
For j As Integer = 0 To intSheetCount - 1
'获取图纸的大小尺寸
tmpInt = swDoc.Sheet(mysheet(j).ToString).GetSize(stWidth, stHeight)
stWidth = stWidth * 1000
stHeight = stHeight * 1000
If stHeight = 594 Or stHeight = 841 Then
Form1.ListLargePapers.Items.Add(SwFinalFiles(i))
Exit For
End If
If stHeight = 210 Or stHeight = 297 Then
'选择了直接出图，并且选择的是A4和A3的图纸，
If Form1.CBoxEnable.Checked = True Then
'选择打印机
swMod.Printer = Form1.cbxPtA4.SelectedItem
'设置页面参数
Dim a As PageSetup
a = swMod.PageSetup
a.HighQuality = True
a.ScaleToFit = True
Dim tt As Boolean
a.DrawingColor = swPageSetupDrawingColor_e.swPageSetup_BlackAndWhite
a.PrinterPaperSize = PaperKind.A4
tt = a.UsePageSetupOnSheets()
If stWidth = 297 Or stWidth = 210 Then 'A4图纸
swMod.PrintDirect()
End If
If stWidth = 420 Then 'A3图纸
swMod.PrintOut(j + 1, j + 1, 1, False, swMod.Printer, 0.67, False)
End If
Else
'将图纸录入集合
swSingleDraw = New SwDraw
tmpSavefile = Application.StartupPath & "\OutputImage" & i.ToString & _
mysheet(j).ToString & ".tif"
swMod.SaveAs(tmpSavefile) '保存成jpg文件
With swSingleDraw
.drawDir = tmpSavefile
.drawHeight = stHeight
.drawWidth = stWidth
End With
If stWidth = 210 Then
swSingleDraw.PaperSize = "A4"
End If
If stWidth = 420 Then
swSingleDraw.PaperSize = "A3"
End If
End If
End If
'如果是A2的尺寸，处理同上。
If stHeight = 420 Then
'将图纸录入集合
swSingleDraw = New SwDraw
tmpSavefile = Application.StartupPath & "\OutputImage" & i.ToString & _
mysheet(j).ToString & ".tif"
swMod.SaveAs(tmpSavefile) '保存成TIF文件
With swSingleDraw
.drawDir = tmpSavefile
.drawHeight = stHeight
.drawWidth = stWidth
End With
If stWidth = 594 Then
swSingleDraw.PaperSize = "A2"
End If
End If
'录入完毕，图纸尺寸全部放入到了对象swSingleDraw中
swDrawCollecton.Add(swSingleDraw)
swDoc.SheetNext()
Next
swApp.CloseDoc(SwFinalFiles(i))
swDoc = Nothing
swMod = Nothing
Catch ex As Exception
End Try
Next
getA2s()
fillPaper()
joinPicture()
MsgBox("successed!")
Else : MsgBox("list not exist")
End If
End Sub
End Module

复制代码