I need to print pages-for example 1,4,13,15,16
I'm storing numbers desired pages in a list.
My code is something like this:
Code: Select all
SRVPrint := TSRVPrint.Create(nil); try SRVPrint.SRichViewEdit := Edit; // Edit is TSRichViewEdit SRVPrint.PrintMode := srvpAuto; SRVPrint.MetafileCompatibility := MainRVAControlPanel.MetafileCompatibility; for Page := 0 to Pages2.Count-1 do SRVPrint.PrintFrames(TituFinal, Pages2[Page]) ; finally SRVPrint.Free; end;
I'm sure I'm doing something wrong, but I do not know what.
I hope you understand my bad English