Printe

Tags:    delphi

Hej...

jeg laver en tekstprogram... jeg har lavet en knap hvor man kan printe...
først tog jeg Printdialog og så skrev koden:

procedure TForm1.printClick(Sender: TObject);
begin
if PrintDialog1.Execute then
begin
memo1.Print(' Titel på dokument ');
end;
end;

er det ikke rigtigt?

Det virker ikke hvad er der fejl i den??


Svar



4 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma
Sorter efter stemmer Sorter efter dato

procedure TForm1.printClick(Sender: TObject);
begin
if PrintDialog1.Execute then
begin
memo1.Print(' Titel på dokument ');
end;
end;

er det ikke rigtigt?

Det virker ikke hvad er der fejl i den??


TMemo har ikke en Print procedure - brug en TRichEdit i stedet for.


PS. Prøv, i fremtiden, at huske fejlbeskeden i stedet for bare at sige "det virker ikke".



Hej...

jeg laver en tekstprogram... jeg har lavet en knap hvor man kan printe...
først tog jeg Printdialog og så skrev koden:

procedure TForm1.printClick(Sender: TObject);
begin
if PrintDialog1.Execute then
begin
memo1.Print(' Titel på dokument ');
end;
end;

er det ikke rigtigt?

Det virker ikke hvad er der fejl i den??


Svar


Jeg mener at det er sådan:

procedure TForm1.printClick(Sender: TObject);
begin
if PrintDialog1.Execute then
begin
memo1.Print(memo1.lines);
end;
end;

M.V.H.
..:Lucky Luke:..



Hej...

jeg laver en tekstprogram... jeg har lavet en knap hvor man kan printe...
først tog jeg Printdialog og så skrev koden:

procedure TForm1.printClick(Sender: TObject);
begin
if PrintDialog1.Execute then
begin
memo1.Print(' Titel på dokument ');
end;
end;

er det ikke rigtigt?

Det virker ikke hvad er der fejl i den??


Svar

Jeg mener at det er sådan:

procedure TForm1.printClick(Sender: TObject);
begin
if PrintDialog1.Execute then
begin
memo1.Print(memo1.lines);
end;
end;

M.V.H.
..:Lucky Luke:..



ok yousif ... kom lige ind på MSN pleass...
Det er lang tid siden..




Jeg mener at det er sådan:

procedure TForm1.printClick(Sender: TObject);
begin
if PrintDialog1.Execute then
begin
memo1.Print(memo1.lines);
end;
end;

M.V.H.
..:Lucky Luke:..

Nej det er det ikke der er fejl!




t