Home General

Print to File: How to remove superfluous "_1" in output filename

edited February 2018 in General
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
This discussion has been closed.