heronim
Comments
- 
                I tried here using:
 procedure TJ_BD070.EtiquetaFileDeviceCreate(Sender: TObject);
 begin
 Label.PrinterSetup.Orientation := poPortrait;
 end;
 But it doesn't go through the event
- 
                
 is report_origem.PrinterSetup.Orientation := porportrait