printer setup

I delphi er der en "printers" unit der tillader dig at udføre det samme som du kan fra f.eks. "print, properties" i Word.

En anden mulighed er at sætte de egenskaber du vil have fast i selve printerinsdtillingerne, men det betyder selvfølgelig at andre programmer ikke kan bruge printerne på ande måde.

sjensen

hej sjensen

kan du ikke give mig en code på en "printers" unit der tillader mig at udføre det samme som man kan fra "print, properties" i Word

mvh
pbeo

Tilføj "Printers" til "uses"
og
Printer.Orientation:=
Printer.PageHeight:=
Printer.PageWidth:=
osv.

Printer.Printers giver dig en string med installerede printer

Kim

Perolsen> Jo, hvis du kan vente til d. 31/12. Jeg er ikke hjemme før og kan derfor ikke sende dig noget af det kode jeg normalt bruger.

og, jeg glemte lige at sige: kim_billes forslag er godt nok. Der er bl.a. sådan man gør.

Du skal bare huske at sætte printer.itemindex til nummeret på den printer du vil arbejde med, inden du sætter hhv. Orientation, pagewidth m.m. Det svarer til at vælge printeren fra dropdown boksen

sjensen
Nå ja det havde jeg glemt, men som i ser var det lidt sent

hej sjensen Jo, jeg kan vente til d. 31/12. når du er hjemme tak

tek kim_bille men kan du ikke give mig
en code da jeg er ny her

åhhh TEK = tak

procedure TForm1.PrintClick(Sender: TObject);
begin
  // når du tilføjer 'Printers' til uses clause i toppen af din unit
  // har du et object "Printer' til rådighed.
  // Se Delphi Help for mere info

  // hvis vi siger at din ene printer hedder 'PER' og den anden hedder 'OLSEN'
  // kan et tryk på en knap (f.eks. button1) udføre dine opgaver således:

  // Dette sætter printeren PER til "default" printer
  printer.PrinterIndex := printer.Printers.IndexOf('PER');
  printer.Copies      := 1;
  printer.Orientation  := poPortrait;  // eller poLandscape
  printer.Title        := 'Test udskrift 1';  // vises under printers mens
                                              // lsiten udskrives

  // hvis du vi ændre størrelse på papiret bruger du
  printer.pageheight  := nn;  // hvor nn er pixels, men være opmærksom på
                              // hvilken opløsning printeren er sat til
  printer.pagewidth    := nn;  // igen i pixels

  // hvis du vil ændre font så brug
  printer.Canvas.Font  := printer.fonts.indexof('Times New Roman');

  // her efter skriver du, men du skal først starte på et doc:
  printer.BeginDoc;  // start en udskrift

  // skriv dine tekster med textout
  repeat
    printer.Canvas.TextOut(x,y,'text');  // hvor x og y er coordinater i pixels
    // hvis du vil skifte side under vejs bruger du
    {printer.NewPage;}
  until no_more_text;

  printer.enddoc;

  // skifter du til næste printer med
  printer.PrinterIndex := printer.Printers.IndexOf('OLSEN');
  // og starter igen med at sætte diverse vars og fortsætter ellers som ovenfor

end;

Jeg håber det er noget du kan bruge

sjensen

Jeg glemte egentligt at fortælle at mit eks. ikke er umiddelbart anvendeligt. Der er mange andre ting du skal holde styr på, f.eks. x,y koordinaterne for textout, karakteropløsningen for font/pageheight/pagewidth, o.s.v.

Der findes en struktur der hentes via printer.capabillities der giver dig en masse info om hvad den enkelte printer kan, og der er mange andre muligheder end dem jeg har nævnt her.

Men.. Med det jeg har skrevet kan du i det mindste se hvilke properties og metoder der findes og i delphi.hlp læse mere om de enkelte.

Endeligt vil jeg dog anbefale at du anskaffer et egentligt udskriftsværktøj, a la QuickReport der følger med Delphi. Selv bruger jeg ReportPrinter Pro, men andre bruger f.eks. Crystal Reports o.s.v.

Udskrift under windows er ikke helt så enkelt som i gamle dage under DOS så derfor er der et stort marked for specielle udskriftsværktøjer.

Jeg bruger som nævnt reportprinter pro fra Nevrona fordi jeg kan "kode" udskrifterne lidt på samme måde som under DOS. Det giver mig frihed til at tilbyde at kunderne gennem diverse indstillinger selv kan tilpasse udskrifterne, uden nødvendigvis at skulle købe et bestemt produkt som f.eks. Crystal reports. Til gengæld er det så ikke et "visuel" design, men det gør ikke så meget.

I den seneste version af reportprinter pro er der dog en visuel designer med både til udvikleren og evt. til slutbrugeren.

hvis du er interesseret (og dette er ikke ment som nogen form for reklame) så kan du læse mere om reportprinter pro på www.nevrona.com

sjensen