Print to File: How to remove superfluous "_1" in output filename
Hey RB-Guys!
2 Questions about "printing" to file:
1)
How do I get rid of that automagically added "_1" in the actual output
file name.
Even your demo has it, so I guess it´s somewhat chiseled in stone.
Found something about a NewFile in ppGroups - but neither mine nor your
demo-report has some?!?
2)
Where would be the difference between
ppReport1.DeviceType := 'JPEG';
and using TppJPGDevice?
-----------------------------
From Demo ImageDeviceDemo:
----------------------------
procedure TForm2.Button4Click(Sender: TObject);
var
lJPGDevice: TppJPGDevice;
begin
lJPGDevice := TppJPGDevice.Create(self);
lJPGDevice.FileName := 'TestJPG.jpg';
lJPGDevice.Publisher := ppReport1.Publisher;
lJPGDevice.Scale := TrackBar1.Position / 100;
ppReport1.PrintToDevices;
lJPGDevice.Free;
//Duh???
OpenFile('TestJPG_1.jpg');
{ppReport1.AllowPrintToFile := True;
ppReport1.DeviceType := 'JPEG';
ppReport1.TextFileName := 'TestJPG.jpg';
ppReport1.Print;}
end;
-----------------------------
Using RB#11 at the moment, but have version #19 available (just didnt
update so far)
Thx,
Best regards,
H
2 Questions about "printing" to file:
1)
How do I get rid of that automagically added "_1" in the actual output
file name.
Even your demo has it, so I guess it´s somewhat chiseled in stone.
Found something about a NewFile in ppGroups - but neither mine nor your
demo-report has some?!?
2)
Where would be the difference between
ppReport1.DeviceType := 'JPEG';
and using TppJPGDevice?
-----------------------------
From Demo ImageDeviceDemo:
----------------------------
procedure TForm2.Button4Click(Sender: TObject);
var
lJPGDevice: TppJPGDevice;
begin
lJPGDevice := TppJPGDevice.Create(self);
lJPGDevice.FileName := 'TestJPG.jpg';
lJPGDevice.Publisher := ppReport1.Publisher;
lJPGDevice.Scale := TrackBar1.Position / 100;
ppReport1.PrintToDevices;
lJPGDevice.Free;
//Duh???
OpenFile('TestJPG_1.jpg');
{ppReport1.AllowPrintToFile := True;
ppReport1.DeviceType := 'JPEG';
ppReport1.TextFileName := 'TestJPG.jpg';
ppReport1.Print;}
end;
-----------------------------
Using RB#11 at the moment, but have version #19 available (just didnt
update so far)
Thx,
Best regards,
H
This discussion has been closed.