- Delphiartiklar, tips, forum, länksamling - 

      

START | DELPHI | LÄNKARGÄSTBOK 




 Forum

Grundkurs
  »Introduktion
  »Snabbguide
  »Komponenter
  »Händelser
  »Strängar
  »Räkna med Delphi   »Egna typer
  »Selektion
  »Iteration
  »Menyer
  »Funktioner
  »Arraystrukturer

Tips & Tricks
  »Nya tips
  »Blandat
  »Databaser
  »Filer
  »Forms
  »Grafik
  »Internet
  »Komponenter
  »Matematik
  »Multimedia
  »Objekt/ActiveX
  »Skrivare
  »Strängar
  »System
  »Mest lästa tips

Artiklar
  »Delphi och ADO
  »Bygga en DLL
  »Skapa en enkel rapport
  »Hantera registret
  »Enheter, units
  »Klassen TCanvas
  »Använd LookUp Controls

 Nya tips
 Lägg till tips
 Delphilänkar
 Gästbok

 

Skriv ut till användarens valda skrivare Kategori: Skrivare
Inlagt: 2006-03-06
Läst: 1037
Inlagt av: Staffan Berg
Beskrivning
Använd denna kod för att skriva ut till den skrivare användaren valt.
Kod
procedure TrptTextFile.QuickRep1BeforePrint(Sender: TCustomQuickRep; 
 var PrintReport: Boolean); 
begin 
 
  with QuickRep1.PrinterSettings do 
   if PrinterIndex <> printer.printerIndex then 
     PrinterIndex := printer.printerIndex; 
 
end;

 
 
© Copyright 2005 - Staffan Berg
- Alla rättigheter förbehålles -