/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Udskrivning PrintPreview procedure?
Fra : Monie Jacobsen


Dato : 16-08-02 17:02

Hej
Kan du hjælpe mig med, at få den nedstående procedure for
udskrivning, til, at blive gjort i PrintPreview procedure?
Har du et programstump eksempel procedure eller function, gerne med et
demoeksempel?

procedure TfrmProfil.btnPrintClick(Sender: TObject);
var
ScaleX, ScaleY: Integer;
R: TRect;
begin
if PrinterSetupDialog1.Execute then
begin
Printer.BeginDoc;

Form3.StandardsTekst; //Kald af tekst til Image billedet.

with Printer do
try
ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
R := Rect(0, 0, Image1.Picture.Width * ScaleX,
Image1.Picture.Height * ScaleY);
Canvas.StretchDraw(R, Image1.Picture.Graphic);
finally
EndDoc;
end;
end;
end;

MVH
Mnie






 
 
Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste