Mangler liiige 2 ting.

1. der er noget med at man på nogle printere skal vælge om den skal køre med True-Type fonte eller ej, din er sat til ej, og har ikke en MS Sans Serif

2. det er vel fordi din TAB chr. ligger efter din bullet og ikke før

Dit rave-printerobjekt har sin egen font-indstilling - og den må passe til din TRichEdit's.

Vil I kunne hjælpe mig med noget kode?

noget i den her stil :

RaveReport.Font.Assing(RichEdit1.Font);

Lige præcis.

Har I en ide til det med Bullets?

Hov, iøvrigt laver jeg en TAB før jeg laver bullet.

Prøvet dette:

RaveReport.Font.Assing(RichEdit1.Font);

Ingen fejl opstår, meeen den font som RichEdit1 har bliver ikke brugt.

Kan nogen hjælpe mig med, hvorfor at det ikke virker. Dette her er min procedure:

procedure TMalerMainForm1.RvSystem1Print(Sender: TObject);
var
  MemoBuf: TMemoBuf;
  Stream: TMemoryStream;
begin
  with sender as TBasereport do
  begin
    MemoBuf := TMemoBuf.Create;
    SetFont('Microsoft Sans Serif',11);
    MemoBuf.BaseReport := Sender as TBaseReport;
    try
      LineNum := 5;
      PrintLeft(DBEdit5.Text,2.0);
      LineNum := 6;
      PrintLeft('Att:'+DBEdit9.Text,2.0);
      LineNum := 7;
      PrintLeft(DBEdit6.Text,2.0);
      LineNum := 8;
      PrintLeft(DBEdit7.Text+' '+DBEdit8.Text,2.0);
      LineNum := 10;
      PrintRight(DBEdit4.Text,19.0);
      LineNum := 14;
      Bold := true;
      Underline := true;
      PrintCenter('Overslagspris nr. '+DBEdit2.Text, PageWidth / 2);
      Font.Assign(DBRichEdit1.Font);
      LineNum := 16;
      MemoBuf.RichEdit := TRichEdit(DBRichEdit1);
      MemoBuf.PrintStart := 2.0;
      MemoBuf.PrintEnd := 19.0;
      While not MemoBuf.Empty do
      begin
        MemoBuf.PrintHeight(SectionBottom - LineTop,false);
        If not MemoBuf.Empty then
        begin
          NewPage;
        end;
      end;
    finally
      MemoBuf.Free;
    end;
  end;
end;

Er der nogen der kan hjælpe mig?

Hvad er det der ikke virker? Kommer der noget på udskriften eller slet intet overhovedet. Sker der access violations? Har efterlyst det før og nu gør jeg det igen. Bedre information om hvad der sker, tak!

Jeg har kigget lidt på det - men ikke testet noget. Synes ikke det er kønt kodet med globale variable og den slags, men det prøver jeg at abstrahere fra. Havde nok prøvet at lave min egen printer-klasse.

Prøv dette først. Der kan være et sammenfald med formens egen font:

var
  BaseReport : TBaseReport;
begin
  BaseReport := Sender as TBasereport;

  MemoBuf := TMemoBuf.Create;
  try
    MemoBuf.BaseReport := BaseReport;
    BaseReport.Font.Assign(RichEdit1.Font);
    ...

Har du testet om din løkke bliver udført?

Søde rare HRC,

Jeg har nævnt hvad der sker. Der sker intet. Ingen fejl, men det er ikke den font der bliver brugt.

Den beskrivelse du har lavet findes ikke:
BaseReport.Font.Assign(RichEdit1.Font);

Den hedder:
BaseReport.Fonts.Assign(RichEdit1.Font);

Og den rejser en access violation.

Jeg fandt en font-property her: MemoBuf.BaseReport.Canvas.Font.Assign(reText.Font);
Prøver selv at lege lidt med det da jeg altid neglisierer det med udskrifter. Når så det kommer til stykket bliver jeg nødt til at lave dem helt fra bunden.

Nå, men det virker altså ikke (det står også i dokumentationen). Det her gør:

var
  MemoBuf : TMemoBuf;
begin
  MemoBuf := TMemoBuf.Create;
  try
    MemoBuf.BaseReport := (Sender as TBaseReport);
    MemoBuf.BaseReport.AssignFont(reText.Font);
    MemoBuf.BaseReport.Println('Hello my world');
  finally
    MemoBuf.Free;
  end;
end;

Jeg er helt overbevist om at det du har lavet virker, men jeg kan ikke få det til at virke.

Men den måde jeg udskriver på er lidt anderledes end det du gør. Jeg gør sådan her:

procedure TMalerMainForm1.RvSystem1Print(Sender: TObject);
var
  MemoBuf: TMemoBuf;
  Stream: TMemoryStream;
  BaseReport : TBaseReport;
begin
  with sender as TBasereport do
  begin
    MemoBuf := TMemoBuf.Create;
    SetFont('Microsoft Sans Serif',11);
    MemoBuf.BaseReport := Sender as TBaseReport;
    try
      LineNum := 5;
      PrintLeft(DBEdit5.Text,2.0);
      LineNum := 6;
      PrintLeft('Att:'+DBEdit9.Text,2.0);
      LineNum := 7;
      PrintLeft(DBEdit6.Text,2.0);
      LineNum := 8;
      PrintLeft(DBEdit7.Text+' '+DBEdit8.Text,2.0);
      LineNum := 10;
      PrintRight(DBEdit4.Text,19.0);
      LineNum := 14;
      Bold := true;
      Underline := true;
      PrintCenter('Overslagspris nr. '+DBEdit2.Text, PageWidth / 2);
      MemoBuf.BaseReport.AssignFont(DBRichEdit1.Font);
      LineNum := 16;
      MemoBuf.RichEdit := TRichEdit(DBRichEdit1);
      MemoBuf.PrintStart := 2.0;
      MemoBuf.PrintEnd := 19.0;
      While not MemoBuf.Empty do
      begin
        MemoBuf.PrintHeight(SectionBottom - LineTop,false);
        If not MemoBuf.Empty then
        begin
          NewPage;
        end;
      end;
    finally
      MemoBuf.Free;
    end;
  end;
end;

Skal jeg prøve at maile dig mit test-program (hrc_public at hotmail)? Jeg har en font-dialog hvori jeg ændrer fonten i min TRichedit til Windings, skriver et eller andet for derefter at udskrive det til skærm.

Kan ikke lige regne ud om der sker noget om du prøver at bytte rundt på disse to linier:

      MemoBuf.BaseReport.AssignFont(DBRichEdit1.Font);
      LineNum := 16;
      MemoBuf.RichEdit := TRichEdit(DBRichEdit1);

Kommer der intet på din udskrift - heller ikke headeren?

Det hele kommer ud. Alt hvad der står i de forskellige DBEdit kommer ud og i den rigtige font. Det der står i MemoBuf kommer også ud, men ikke i den font som DBRichEdit har. Det virker som om det er en standard font. Hvis jeg i designtime ændre fonten på DBRichEdit Times New Roman kan jeg se teksten "DBRichEdit1" som står i komponenten ændre sig, men når man kører programmet og skal til skrive noget, er det IKKE Times New Roman, men en anden font. Sikkert standard.

Jeg har prøvet det du efterlyser. Samme status. :(

noget kunne jo tyde på at TMemoBuf har et problem ??, hvad er det for en ting ??

Jeg beklager meget, hvis jeg ikke lige får skrevet hurtigt tilbage, men jeg er lige blevet far for 2. gang igår, sååå det går ikke helt så stærkt. :)

Jeg tror ikke helt jeg forstår dit spørgsmål MartinLind. Det eneste jeg kan sige er at det er lavet sådan:

procedure TMalerMainForm1.RvSystem1Print(Sender: TObject);
var
  MemoBuf: TMemoBuf;
  Stream: TMemoryStream;
  BaseReport : TBaseReport;
begin
  with sender as TBasereport do
  begin
    MemoBuf := TMemoBuf.Create;
    SetFont('Microsoft Sans Serif',11);
    MemoBuf.BaseReport := Sender as TBaseReport;


Men jeg har prøvet at lave en almindelig RichEdit i min program og det spiller. Den RichEdit jeg bruger er en DBRichEdit. Kan der være en forskel?

er TMemoBuf en TRichEdit ??

Hvis det spiller med en alm. RichEdit, kan du jo bare lave et lille "hack" og køre via en aml. når du printer :)

Om TMemoBuf er en TRichEdit?

Det tror jeg nok. Du hjalp mig ihvertfald med et andet problem jeg havde, hvor jeg godt ville have indhold af en DBRichEdit udskrevet:
http://www.eksperten.dk/spm/723203

Hvordan skulle det lille "hack" se ud?

flyt data fra din dbrichedit til en alm. richedit inden du skriver ud, dvs. flytte hver gang du får en ny record

Men er det ikke detman gør her:

      MemoBuf.RichEdit := TRichEdit(DBRichEdit1);

Nogen ideer?

Kunne du ikke bruge det eksempel jeg sendte dig? Der er der 3 forskellige måder at skrive ud på - en hvor jeg bl.a. bruger richedit-propertyen. Hvis TDBRichEdit nedarver fra TRichEdit, så burde du bare kunne erstatte min TRichEdit.

I øvrigt, med den snak om at programmere det fra bunden i stedet for at skulle lære endnu en mærkelig udskriftspakke at kende. Vi havde nok været færdige forlængst.

Jeg har set på det du har sendt til, men det ser ud til at der mangler en test.rav fil.

Det du snakker om med at lave det fra bunden. Hvad er det? Kan man gøre anderledes? Jeg troede at RaveReport var den eneste mulighed! Jeg vil tillade mig at sende det jeg selv har lavet til dig, så du kan se problemmet.

En ekstra lille ting. Jeg kunne godt se din pointe i det kode du har sendt til mig og jeg har prøvet dem af og det ser ud til at mulighed 2 virker med fonten også.

Har du en ide til punkt 2?

Point sættes op til 100.

Hej HRC.
Jeg tror at jeg var en lille smule for hurtigt, for godt nok kommer teksten ud, men bullet og understregning kommer ikke med.

Når du trykker på "udskriv"-knappen, løber du så teksten igennem og indsætter de bullets som du vil have? Når den kobles på rave skulle de gerne vise sig?

Skal prøve at lave et eksempel hvor jeg har en rutine der skriver ud på et blankt Printer-canvas. Det er lidt noget pillearbejde, men egentlig ikke så svært som at gennemskue Rave - synes jeg.

Næ, jeg løber ingen tekst igennem. Jeg har prøvet lidt forskelligt bla. prøvet en af de eksempler du har sendt til mig, hvor jeg godt nok for teksten ud, men ikke som formateret. Lige nu er den:

MemoBuf.RichEdit := TRichEdit(DBRichEdit1);

Jeg har sendt dig koden så du kan se hvad der sker.

HRC har du set at jeg har sendt noget til dig?
venligst
Kenneth