@merlin17,
danke für Deine Antwort.
Habe mal beide Methoden ausprobiert. Hier geschieht folgendes:
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
RvSystem1.SystemFiler.StreamMode := smFile;
RvSystem1.SystemFiler.FileName := 'Delphipraxis.NDR'; // löschen nciht
//vergessen!
RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowSetup];
RvSystem1.SystemOptions := Rvsystem1.SystemOptions - [soNoGenerate];
RvSystem1.Execute; // Default auf Printer .... alles andere macht wenig
//Sinn
with RvRenderPreview1 do
begin
ScrollBox := ScrollBox1;
render('Delphipraxis.NDR');
end;
end;
Bei RvSystem.DefaultDest := rdPrinter erscheint sehr kurz die Rave-StandardVorschau, danach ist der Text in der VorschauSrollBox, gleichzeitig beginnt der Druck.
Aus der Vorschau heraus sollte erst nach BtnClick gedruckt werden.
Bei dieser Variante
Delphi-Quellcode:
procedure TForm1.BitBtn2Click(Sender: TObject);
var
MeinNDRStream: TMemoryStream;
begin
MeinNDRStream := TMemoryStream.Create;
RvNDRWriter1.StreamMode := smUser;
RvNDRWriter1.Stream := MeinNDRStream;
RvNDRWriter1.Execute;
MeinNDRStream.Position := 0;
with RvRenderPreview1 do
begin
ScrollBox := ScrollBox1;
render(MeinNDRStream);
end;
end;
Mit Click wechselt die Hintergrundfarbe von grau nach weiß und Scrollbalken sind vorhanden, (da passiert was) aber es erscheint dort kein Text.
Scrollbalken, d.h. die Vorschau ist größer als die Srollbox. Kann man die Vorschau auf Boxgröße anpassen und wie.
Was mache ich denn da falsch?
Gruß
Fritz