Tags:
delphi
Hej
Jeg forsøger med nedstående procedure, at udskrive adresse til en modtageren
og samtidig afsenderadressen på en konvolut, af almindelige størrelse.
Har brugt så mange stykker papir, at jeg må bede om hjælp til, at få udskrivningrn til at fungerer!
Vil selv kunne indsætte værdierne i Canvas.TextOut(x,Y
Håber meget du vil hjælpe mig.
Benytter Delphi 6.
procedure TfmUdskrivning.BitBtn1Click(Sender: TObject);
Var
Line : integer;
begin
Printer.Canvas.Font := UdskrivRichEdit.Font;
Printer.Canvas.Font.Size := UdskrivRichEdit.Font.Size;
Printer.Canvas.Font.Size := 18;
with Printer do
begin
BeginDoc;
for Line := 0 to UdskrivRichEdit.Lines.Count -1 do
{Til adresse i UdskrivRichEdit,som skal placeres midt på konvoluten}
Canvas.TextOut(1000,100,UdskrivRichEdit.Lines.Strings[Line]);
for Line := 0 to Memo1.Lines.Count -1 do
{Afsender adresse i Memo1, som skal placeres nederste i højere hjørne af konvoluten}
Canvas.TextOut(2000,2000,Memo1.Lines.Strings[Line]);
EndDoc;
end;
end;
Med venlig hilsen
Monie Jacobsen
My mail adress is
monie at sunwind dot dk