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
Thanks