Печать диапазона страниц (компонент PrintDialog1)

void __fastcall TFormOle::PrintMenuClick(TObject *Sender)
{
AnsiString FileNameOld, PrinterName;
Variant WordDocument = OleContainer->OleObject;
 
FileNameOld = WordDocument.OlePropertyGet("Application").OlePropertyGet("ActivePrinter");
if (PrintDialog1->Execute())
{
TPrinter *printerdef = Printer();
printerdef->Copies = PrintDialog1->Copies;
 
PrinterName = printerdef->Printers->Strings[printerdef->PrinterIndex];
WordDocument.OlePropertyGet("Application").OlePropertySet("ActivePrinter", PrinterName.c_str());
WordDocument.OleFunction("PrintOut");
}
WordDocument.OlePropertyGet("Application").OlePropertySet("ActivePrinter", FileNameOld.c_str());
WordDocument.Clear();
}

TPrinter *printerdef = Printer();
printerdef->Copies = PrintDialog1->Copies;
 
PrinterName = printerdef->Printers->Strings[printerdef->PrinterIndex];
WordDocument.OlePropertyGet("Application").OlePropertySet("ActivePrinter", PrinterName.c_str());
WordDocument.OleFunction("PrintOut");

void __fastcall TForm1::Button4Click(TObject *Sender)
{             //  #include  <printers.hpp> !
     WORD  na = 1, ko = 9, st;
     TPrinter  *prn = Printer();
     PrintDialog1->Options.Clear();
     PrintDialog1->Options << poPageNums << poPrintToFile << poSelection << poWarning ;
     PrintDialog1->MinPage = na;
     PrintDialog1->MaxPage = ko;
     PrintDialog1->ToPage  = ko; 
     if(!PrintDialog1->Execute()) return;
     st = PrintDialog1->FromPage;
     ko = PrintDialog1->ToPage;
     if (Form2) 
       for(int i=st;i<=ko;i++) {
         prn->Title = "Печать страницы "+IntToStr(i);
         Form2->Label1->Caption = "- "+IntToStr(i)+" -";
         Form2->Print();
       }
}

WideString wPages="3-5";
WordDocument.OlePropertyGet("Application").OlePropertyGet("Printer").OlePropertySet("Pages", wPages);

WideString pages = "3-5";
 
WordDocument.OlePropertyGet("ActiveDocument").OleProcedure("PrintOut",
EmptyParam() /* Background */,
EmptyParam() /* Append */,
Variant(wdPrintRangeOfPages) /* Range */,
EmptyParam() /* OutputFileName */,
EmptyParam() /* From */,
EmptyParam() /* To */,
EmptyParam() /* Item */,
EmptyParam() /* Copies */,
Variant(pages) /* Pages */,
EmptyParam() /* PageType */,
EmptyParam() /* PrintToFile */,
EmptyParam() /* Collate */,
EmptyParam() /* FileName */,
EmptyParam() /* ActivePrinterMacGX */)

const int wdPrintRangeOfPages = 4;//диапазон открытых страниц документа, можно менять

WordDocument.OleProcedure("PrintOut",
                EmptyParam,
                EmptyParam,
                wdPrintRangeOfPages,
                EmptyParam,
                EmptyParam,
                EmptyParam,
                EmptyParam,
                EmptyParam,
                Pages);

 template <class P1, class P2, class P3, class P4, class P5,
            class P6, class P7, class P8, class P9>
  void Variant::OleProcedure(const String& name,
    P1 p1, P2 p2, P3 p3, P4 p4, P5 p5,
    P6 p6, P7 p7, P8 p8, P9 p9)
  {
    TAutoArgs<9> args;
    args[1] = p1;  args[2] = p2;  args[3] = p3;
    args[4] = p4;  args[5] = p5;  args[6] = p6;
    args[7] = p7;  args[8] = p8;  args[9] = p9;
    OleProcedure(name, static_cast<TAutoArgsBase*>(&args));
  }

  template <class P1, class P2, class P3, class P4, class P5,
            class P6, class P7, class P8, class P9, class P10,
            class P11, class P12, class P13, class P14, class P15,
            class P16, class P17, class P18, class P19, class P20,
            class P21, class P22, class P23, class P24>
  void Variant::OleProcedure(const String& name,
    P1 p1, P2 p2, P3 p3, P4 p4, P5 p5,
    P6 p6, P7 p7, P8 p8, P9 p9, P10 p10,
    P11 p11, P12 p12, P13 p13, P14 p14, P15 p15,
    P16 p16, P17 p17, P18 p18, P19 p19, P20 p20,
    P21 p21, P22 p22, P23 p23, P24 p24)
  {
    TAutoArgs<24> args;
    args[1] = p1;  args[2] = p2;  args[3] = p3;
    args[4] = p4;  args[5] = p5;  args[6] = p6;
    args[7] = p7;  args[8] = p8;  args[9] = p9;
    args[10] = p10;  args[11] = p11;  args[12] = p12;
    args[13] = p13;  args[14] = p14;  args[15] = p15;
    args[16] = p16;  args[17] = p17;  args[18] = p18;
    args[19] = p19;  args[20] = p20;  args[21] = p21;
    args[22] = p22;  args[23] = p23;  args[24] = p24;
    OleProcedure(name, static_cast<TAutoArgsBase*>(&args));
  }

//Объявления 
const int wdPrintRangeOfPages = 4;
WideString Pages = "1-1"; 
 
//Вызов
WordDocument.OleProcedure("PrintOut",
                EmptyParam,
                EmptyParam,
                Variant(wdPrintRangeOfPages),
                EmptyParam,
                EmptyParam,
                EmptyParam,
                EmptyParam,
                EmptyParam,
                Variant(Pages),
                EmptyParam,
                EmptyParam,
                EmptyParam,
                EmptyParam,
                EmptyParam,
                EmptyParam,
                EmptyParam,
                EmptyParam,
                EmptyParam);