I am trying to write a macro to export a TIF file from a drawing.  I would like the drawing scaled to the sheet size the drawing is created on.  From the information given on a previous post and SolidWorks API help, I have this macro:

Dim longstatus As Long, longwarnings As Long

Dim Feature As Object

Dim swSheet As SldWorks.Sheet

Dim swDraw As SldWorks.DrawingDoc

Dim bRet As Boolean

Dim i As Long

Dim vSheetProps As Variant

Const swTiffPrintScaleToFit As Long = 28

Const swTiffScreenOrPrintCapture As Long = 6

Const swTiffImageType As Long = 7

Const swTiffCompressionScheme As Long = 8

Const swTiffPrintDPI As Long = 9

Const swTiffPrintPaperSize As Long = 10

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

f = "C:\SOLIDWORKS COMPONENTS\DRAWINGS\"

Debug.Print "PrintScaleToFit        = " + Str(swApp.SetUserPreferenceToggle(swUserPreferenceToggle_e.swTiffPrintScaleToFit, True))

Debug.Print "ScreenOrPrintCapture   = " + Str(swApp.SetUserPreferenceIntegerValue(swTiffScreenOrPrintCapture, 1))

Debug.Print "ImageType              = " + Str(swApp.SetUserPreferenceIntegerValue(swTiffImageType, 0))

Debug.Print "CompressionScheme      = " + Str(swApp.SetUserPreferenceIntegerValue(swTiffCompressionScheme, 2))

Debug.Print "PrintDPI               = " + Str(swApp.SetUserPreferenceIntegerValue(swTiffPrintDPI, 200))

Debug.Print "PrintPaperSize         = " + Str(swApp.GetUserPreferenceIntegerValue(swTiffPrintPaperSize))

file = Dir(f)

    Do While file <> ""

    filen = f + file

    namelength = Len(filen)

    filetype = Mid(filen, (namelength - 5), 7)

    namelength1 = Len(file)

    filename1 = Mid(file, 1, (namelength1 - 7))

    Debug.Print file

    Debug.Print filename1

    lcasefiletype = LCase(filetype)

        If lcasefiletype = "slddrw" Then

                Set Part = swApp.OpenDoc6(filen, 3, 0, "", longstatus, longwarnings)

                swApp.OpenDoc6 filen, 3, 0, "", longstatus, longwarnings

                Set swModel = swApp.ActiveDoc

                Set swDraw = swModel

                vsheetnames = swDraw.GetSheetNames

                        For i = 0 To UBound(vsheetnames)

                        bRet = swDraw.ActivateSheet(vsheetnames(i))

                        Set swSheet = swDraw.GetCurrentSheet

                        vSheetProps = swSheet.GetProperties

                        Part.SaveAs2 f + filename1 & "_" & vsheetnames(i) & ".TIF", 0, True, False

                    Next i

                Set Part = Nothing

                swApp.CloseDoc f + file

        Else

        End If

    file = Dir()

Loop

End Sub

Two things wrong with this macro so far.  I would like to set the sheet size, such as A0, A1, etc. to what the drawing has in the TIF options, and I would like to only export Sheet1, not the DXF sheet, or any other sheets that may be in the drawing.  If anyone has a suggestion to fix this macro, that would be great.  Thanks!