Help! Using API to print tifs

[bOILERbRAD]

Hello all. I have a working API program that prints drawings in the tif format and stores them somewhere. The idea of this program is to cut out the effort needed to rename each tif to the convention we use at work. I want the program to output tifs like so: "partnumber_sheet1.tif", "partnumber_sheet2.tif", "partnumber_sheet3.tif". Right now this is exactly what happens, but partnumber_sheet1.tif has three pages (sheets 1, 2, and 3) and partnumber_sheet2.tif has two pages (sheets 2 & 3).

Does anyone know if I can (in API) print one sheet per tif?

Here is the printing part of my code:

nPrintSheets(0) = i
vPrintSheets = nPrintSheets
swDocExt.PrintOut2 (vPrintSheets), 1, False, SWPrinter, PrintFileName

Thanks in advance for your help!

 

[bOILERbRAD]

FIXED.

vPrintsheets = i instead of vPrintSheets = nPrintSheets

 

[IvanaX]

how did you defined vPrintSheets?

Dim vPrintSheets(0) As Long

 

[bOILERbRAD]

Dim vPrintsheets(0) As Variant