Bullet eller en prik eller hvad man nu kalder sådan een.

Vil du have det sådan her:
  · Noget · tekst

eller sådan her:
  · Noget
  · tekst

Det første. :)

Er der nogen der har en ide?

PrintLn('Noget · tekst'); ??

Jeg bruge chr(250) til ovenstående prik. Den er måske ikke stor nok?

Du kan blive nødt til enten at tegne den på printer-canvasset, eller lede efter en passende i Windings, ZapsDingbats og hvad de nu hedder.

Det kommer også an på om du skriver ud vha writeln(prn,''), for så kan du ikke. Hvis du inkluderer Printers og gør det på Windows-måden så kan du smække grafik ind eller vælge en font der har en passende prik.

Kan du give mig et eksempel?

Jeg bruger Rave Report til at udskrive.

Har aldrig prøvet Rave - laver mine få udskrifter i hånden (lidt noget selvpineri, men QuickReport vænnede mig fra at prøve udskriftspakkerne).

Enten kan du formattere strengen før du skriver den ud (noget i den retning):

var
  p : integer;
begin
  p := length(st);
  while p > 0 do
  begin
    if st[p] = #32 then
      System.Insert(st,p,#32#250);
    dec(p);
  end;
end;

Hvis prikken ikke dur' så bliver du nødt til at tage hvert ord, skrive det ud i eksempelvis Ariel, for dernæst at indsætte en bullet fra Windings eller bare et stykke grafik. Jeg ved ikke om det er muligt at gøre sådan i Rave - men man kan gøre alt hvis det laves direkte på printercanvasset.

Jeg har fornemmelsen at det nok er lidt af det samme, men jeg kan ikke lige dreje den sådan at det skulle passe ind i det jeg har lavet. Proceduren nendenfor er en header, som vil komme ud på hver side. Mon du kunne hjælpe mig hvordan jeg skulle for klaret mit lille problem?

procedure TMalerMainForm1.RvSystem1PrintHeader(Sender: TObject);
var pw : integer;
begin
  with Sender as TBaseReport do
  begin
    MarginTop := 2.0;
    SetFont('Microsoft Sans Serif',21);
    Bold := true;
    Home;
    PrintLeft('MIT NAVN A/S',6.0);
    SetFont('Microsoft Sans Serif',11);
    Bold := true;
    NewLine;
    PrintHeader('MIN ADRESSE ● MIT POSTNR ● MIT TELEFONNR ● MIT FAXNUMER',pjCenter);
    MarginTop := 1.0;
  end;
end;

Hov... &#9679 burde være bullet. Det var den ihvertfald da jeg copy and paste det ind, men det er konverteret til &#9679.

Bullet = • = alt+0149

Ja, men er det ikke rart at man kan stille sit spørgsmål. Få lidt info og klare det selv. HRC læg et svar og du point.

Løsning:
PrintHeader('MIN ADRESSE '+#0149+' MIT POSTNR '+#0149+' MIT TELEFONNR '+#0149+' MIT FAXNUMER',pjCenter);

Er det #149 for dig? Hvilken font bruger du?

"Microsoft Sans Serif" - jeg skal også lige se hvad du skriver i din kode...

Jeg bruger "Microsoft Sans Serif" og der skal være nul foran 149.