Nastavení tiskárny programem v Delphi

V Delphi máš predsa v palete nástrojov (Tool Palette) kartu Dialogs a tam štandardné dialogové okná. Mimo iných aj TPrintDialog a TPrinterSetupDialog...

Stačí zavolať príslušnú metódu dialogu: Execute --> if not PrinterSetupDialog1.Execute then Exit;

Dík za odpověď, ale asi jsem svůj problém nepopsal dostatečně jasně. Doporučeným postupem vyvolám standardní dialog, na který musím reagovat ručně a právě tomu se chci vyhnout. Měl jsem na mysli je-li znám postup běžný při nastavování orientace papíru na výšku či na šířku, tedy Printer.Orientation:=poPortrait na výšku.

Vyskúšaj toto:

var 
    FDevice: PChar;
    FDriver: PChar;
    FPort: PChar;
    DeviceMode: THandle;
    DevMode: PDeviceMode;
begin
  Printer.GetPrinter(FDevice, FDriver, FPort, DeviceMode);
  DevMode := GlobalLock(DeviceMode);

  DevMode^.dmFields := DevMode^.dmFields or DM_PRINTQUALITY;

  case pQuality of
      Low: DevMode^.dmPrintQuality := DMRES_LOW;
      Med: DevMode^.dmPrintQuality := DMRES_MEDIUM;
      High: DevMode^.dmPrintQuality := DMRES_HIGH;
  else
      DevMode^.dmPrintQuality := DMRES_DRAFT;
  end;

  Printer.SetPrinter(FDevice, FDriver, FPort, DeviceMode);
  GlobalUnlock(DeviceMode);
end;

Tak to je volačo iného, to vizerá vierohodne. Ale řídím se úslovím "ráno moudřejší večera" a protože práce mám dneska už po krk, vyzkouším to zítra.