PRINTEROPLØSNING

Det kan du ikke fra printers unitten. Du skal bruge API kald og den struktur du er interesseret i hedder "devmode"

Via denne kan du ændre på printerens mange forskallige indstillinger.

forskallige => forskellige

api, ak endnu engang :-)

Kan du give et eksempel?

frifoed,

jeg er ked af at jeg først ser din kommentar her til morgen, men jeg har haft travlt og ikke checket siden i går. Problemet er at jeg ikke kan hjælpe før i aften, da jeg har nogle D3-eksempel programmer hjemme. Hvis du kan vente kan jeg vise noget i løbet af aftenen.

helt fint...

jeg venter :-)

jeg venter stadig.....

frifoed,

de eksempler jeg har er alle opbygget omkring reportprinter pro som jeg bruger til udskrivning, og dem jeg (troede jeg) havde med API kaldene har jeg oprindeligt brugt sammen med D2 og Win95. Desværre er alt det gemt på nogle CD'er og lagt i arkivet. Og jeg har ikke rigtigt haft tid til at finde den frem.

Jeg skal se hvad jeg kan gøre, men i mellemtiden kan du evt. kigge på det print eksempel borland tilbyder på

http://www.borland.com/devsupport/delphi/devcorner/techtips/printform.html

Der er masser af eksempler på hvordan printers objektet bruges, men om du kan ændre på printerens opløsning ved jeg ikke helt. Men tag et kig.

Skriv din EMail adresse, så kan jeg sende dig en Class der giver dig adgang til "printerens forskellige dele" (heriblandt opløsningen)

Pellelil >> Dette er min adresse: safl@vip.cybercity.dk

>Sjensen vil du også have en kopi  :-)

Pellelil>

Jeg kan ikke bruge Class'en Delphi melder fejl. Har du en løsning?

Ja, ret fejlen <G>. Classen har jeg klippet ud fra min egnen source så jeg ved den skulle kunne compiles, men måske har jeg klippet noget ud som ikke skulle være klippet ud.

Hviliken fejl får du (send evt. hele uniten tilbage til mig så skal jeg kigge på det)

Der er en del fejl:

Res  := GetPrinterResolution; //unidentified declaration inde i proceduren Procedure  TDxPrintSet.SetDeviceMode(fCreating : Boolean);

FATAL ERROR: Could not compile used unit '..\PrinterClass\Printerclass.pas

Hvad så ?

Blev det bedre med "den sidste version" ???

Pellelil > der kommer 3 warnings men det er vel ikke så slemt.

Men Pelleilil hvordan bruger man så unitten??

Du opretter en variable på baggrund af classen og så kalder du din set resolution (jeg har igen smidt den source ud jeg sendte dig - så jeg forsøger så godt jeg kan huske).

Var
  PS : TPrinterSet;
begin
  PS := TPrinterSet.Create;
  PS.SetResolution(xxxxx);
  // Print
  PS.Free;
end;

Pellelil den melder fejl ved:

PS: TPrinterSet; den skal være PS: TPrintSet;

Ps.SetResolution; //der her eksisterer ikke

Jeg skrev også "så godt jeg kan huske". Se hvad classen hedder og erstate "TPrinterSet" med classens navn, og erstart "SetResolution" med det den hedder "SetYResolution(iYRes : Integer);" Hvis PS "er brug" så brug i stedet Ymoflex" da jeg regner med at den ikke er "optaget"  :-)

Pellelil + Sjensen > Kan i ikke komme med et eksempel? Der virker?

JO, det har du fået  :-)

Pellelil > Jeg har sgu kommet til at smide den Class du sendte mig ud :-( Kan du ikke sende mig den igen? Men det eksempel du gav virkede ikke og du siger jeg skal erstatte med er kun til Y-aksen hvad med x?