Hjælp, mig.. mangler noget til en printer!!

Ja, men det skal være så den printer ligeså snart programmet starter.. så den er sat til det den skal printe fra starten og den skal ikke spørge.. den skal bare starte med at udskrive lige når man klikker på ikonet(2 gange self...)!! kan det lade sig gøre..

PS: det er til et drille program til min mor!!

-=[ HipHopWarrioR ]=-_-=[HipHopGansta]=-

jeg vil tro at du kan sætte det her ind i oncreate proceduren


uses
Printers;

procedure TForm1.Button1Click(Sender: TObject);
var
ScaleX, ScaleY: Integer;
RR: TRect;
begin
with Printer do
begin
BeginDoc;
try
ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
RR := Rect(0, 0, Image1.picture.Width * scaleX, Image1.Picture.Height * ScaleY);
Canvas.StretchDraw(RR, Image1.Picture.Graphic);
finally
EndDoc;
end;
end;
end;



hvis ikke det virker kan du ihvertfald finde noget der gør her
http://www.swissdelphicenter.ch/torry/showcode.php?id=744


[Redigeret d. 20/08-03 21:45:23 af BananJoe]

Hej(igen..)..

Jeg har brug for en streng der søger automatisk efter en tilsluttet printer, printer et billed der ligger et sted på nettet

Meget gerne så jeg bar kan kopiere det ind i mit program.. !! .. Tark..
DEN FØRSTE DER FOR LAVET ET STYKKE KODE DER VIRKER FOR DE 50 POINT.. INGEN ANDRE..

Du kan vise en printdialog som du kan se i windows

den finder du under dialogs

if printdialog1.execute then kode til print eller lign.

Ja, men det skal være så den printer ligeså snart programmet starter.. så den er sat til det den skal printe fra starten og den skal ikke spørge.. den skal bare starte med at udskrive lige når man klikker på ikonet(2 gange self...)!! kan det lade sig gøre..

PS: det er til et drille program til min mor!!

-=[ HipHopWarrioR ]=-_-=[HipHopGansta]=-

Har ikke lige tid til at tjekke det nu (07:46 på mit ur!) men jeg tjekker det senere.. det bliver nok dig der for alle point..

-=[ HipHopWarrioR ]=-_-=[HipHopGansta]=-

Har ikke lige tid til at tjekke det nu (07:46 på mit ur!) men jeg tjekker det senere.. det bliver nok dig der for alle point..

-=[ HipHopWarrioR ]=-_-=[HipHopGansta]=-

Har du checket det?

Eller Virker det ikke

kan ikke rigtig få det til at virke..

-=[ HipHopWarrioR ]=-_-=[HipHopGansta]=-

kan ikke rigtig få det til at virke..

-=[ HipHopWarrioR ]=-_-=[HipHopGansta]=-

har du prøvet dem alle

ja..
jeg har før haft problemer, men..

-=[ HipHopWarrioR ]=-_-=[HipHopGansta]=-