1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

      rv_listen: TRvProject;
      RvSystem1: TRvSystem;

.....

              rvSystem1.DefaultDest := rdPrinter;
              case gi_userdruckoption of
                0 : begin 
                      // Sofort drucken
                      RvSystem1.SystemSetups :=  RvSystem1.SystemSetups - [ssAllowSetUp];
                      RvSystem1.SystemSetups :=  RvSystem1.SystemSetups - [ssAllowPreviewSetUp];
                end;
                1 : begin
                      // Preview als Defaultziel, ohne Setupoptionen
                      rvSystem1.DefaultDest := rdPreview;
                      RvSystem1.SystemSetups :=  RvSystem1.SystemSetups - [ssAllowSetUp];
                      RvSystem1.SystemSetups :=  RvSystem1.SystemSetups - [ssAllowPreviewSetUp];
                end;
                2 : begin
                      // Druck als Defaultziel, mit manipulierbaren Setupoptionen
                      rvSystem1.DefaultDest := rdPrinter;
                      RvSystem1.SystemSetups :=  RvSystem1.SystemSetups + [ssAllowSetUp];
                      RvSystem1.SystemSetups :=  RvSystem1.SystemSetups + [ssAllowPreviewSetUp];
                end;
              end;
              rv_listen.ProjectFile := Reportpfad;
              rv_listen.Open;
              rv_listen.Execute;
              rv_listen.Close;