Code: Select all
with xlw2.InternalNames.Add do
begin
BuiltInName := bnPrintTitles;
Definition := 'Sheet4!$A$3:$IV$3';
end;
Claude
Code: Select all
with xlw2.InternalNames.Add do
begin
BuiltInName := bnPrintTitles;
Definition := 'Sheet4!$A$3:$IV$3';
end;
But I don't know what BuiltInName does. Is there a documentation of what it does in version 4?larsa wrote:Please study the NamedCells sample.
Code: Select all
var
Col1, Col2, Row1, Row2: Integer;
begin
AreaStrToColRow('$A$1:$IV$10', Col1, Col2, Row1, Row2);
Sheet.PrintSettings.PrintTitles(Col1, Col2, Row1, Row2);
end;