Udskriv tekst i memo

Altså når jeg trykker på en knap der hedder Udskriv1 så udskriver dne indholdet i en label ?

Vil du have det rigtig udskrevet, altså til en printer, eller vil du bare have indholdet af din memo over i en label !?

Udskriv til printer:

http://www.eksperten.dk/spm/5050
http://www.eksperten.dk/spm/150120

"Udskriv" til label:

Skriv følgende kode i din knps OnClick procedure:

Label1.Caption := Memo1.text;

Snowball

printer.begindoc;
printer.canvas.textuot();
printer.enddoc;


er det så nok ?

procedure TForm1.Udskriv1Click(Sender: TObject);
begin
if Printdialog1.Execute then
memo1.Print();

end;

Jeg har dte kode?? Hvorfor virker det ikke??

Prøv og brug nedenstående i stedet for.

procedure TForm1.Udskriv1Click(Sender: TObject);
const TopMargen=20;
const LeftMargen=20;
const mellemrum=5;
var y,i:integer;
begin
  with Printer do
  begin
    BeginDoc;
    y:=0;
    //Print alle linierne
    for i:=0 to Memo1.Lines.Count-1 do begin
      //Tjek for side skift
      if y+Canvas.TextHeight(Memo1.Lines[i])+mellemrum>PageHeight Then begin newpage;y:=0;end;
      //udskriv
      Canvas.TextOut(LeftMargen,TopMargen+y,Memo1.Lines[i]);
      //Flyt til næste linie
      y:=y+Canvas.TextHeight(Memo1.Lines[i])+mellemrum;
    end;
    EndDoc;
  end;
End;

Snowball

[Error] Unit1.pas(80): Undeclared identifier: 'Printer'
[Error] Unit1.pas(82): Undeclared identifier: 'BeginDoc'
[Error] Unit1.pas(87): Undeclared identifier: 'PageHeight'
[Error] Unit1.pas(87): Undeclared identifier: 'newpage'
[Error] Unit1.pas(93): Not enough actual parameters

De fejl får jeg :S

Brug richedit istedet memo:

  if PrintDialog1.execute then begin
    TRichEdit1.Print('Title på dokument');
  end;

supernewbie: Du har sikkert glemt at tilføje Printers under Uses !

Snowball

Hvordan tilføjer jeg den ?? Jeg har ikke programmeret ret længe :P
Skal ned og låne bog idag ;)

Du kan tilføje den 2 steder:

1) I toppen af din kode har du en unit, interface og uses del. Under Uses står der allerede ting som f.eks. Windows, Messages, SysUtils og Classes. Her tilføjer du så bare bare Printers.

2) Lidt længere nede i din kode har du en implementation del. Lige uder implementation kan du skrive Uses Printers; - så er den også tilføjet.

Snowball

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    MainMenu1: TMainMenu;
    Filer1: TMenuItem;
    bn1: TMenuItem;
    Gemsom1: TMenuItem;
    N1: TMenuItem;
    Afslut1: TMenuItem;
    Om1: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Udskriv1: TMenuItem;
    PrintDialog1: TPrintDialog;


Det er min top vil du ikke lige lave det??

har fået det til at virke men kan man ikek lave så den ikke printer ud i bedste kvalitet??

delphi udprinter efter de indstillinger der sat på din printer.

Har du sat din printer til at udskrive i bedste kvalitet.

ellers brug en printersetupdialog.