Nastavení tiskárny programem v Delphi

Zksu prosím napsat, co konkrétně potřebuješ nastavovat. Z tvého dotazu není jasné, o co ti jde.
Protože má každá tiskárna své ovladače a svůj vlastní dialog na nastavení a tím pádem i své vlastní parametry, nečekej, že by bylo možné něco nastavovat univerzálně mimo standardní věci jako jednostranný/oboustranný tisk, velikost papíru apod.
Tohle se řeší tak, že vyvoláš přístušný dialog tiskárny a tam to nastavíš.

Děkuji za odpověď. Mám tiskárnu Epson L130, která má deklarované 3 režimy kvality tisku : nízká (koncept), stadardní a vysoká. Při startu tiskárny je nastavena kvalita standardní. Ta pro přijatelný tisk fotografií nestačí a proto je nutné před jejich tiskem nastavit (ručně) vysokou kvalitu. Toto nastavení má bohužel velmi malou "trvanlivost". Proto bych byl rád, kdybych nemusel před skoro každým tiskem ji ručně přestavovat, ale udělal to úpravou programu a měl jistotu, že fotka bude k podívání.

ak by to bolo nastalo nastavitelne, a potom na to zabudnes, tak by si zase pistal, ze ti to vyzralo farbu.
netusim ale co vlastne chces upravovat, kedze k ovladacu beztak zdrojaky nemas a to je potom fuk, ci to prekliknes v obvladaci, alebo v nejakom svojom programe = beztak budes robit vec navyse

Dík za snahu, v tom máš pravdu, že bych asi prskal a taky proto se pídím po příkazu, který by vždy před tiskem fotek nastavil vysokou kvalitu v podobném formátu, kterým se nastavuje tisk na výšku : Printer.Orientation:=poPortrait a na šířku : Printer.Orientation:=poLandscape. Do ovladače tiskárny nemusím vůbec zasahovat (ostatně bych to neuměl).

Nikto okrem Teba netuší ako presne realizuješ tlač fotografií v Tvojom programe...

skús pozrieť sem

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.