Vraag & Antwoord

Programmeren

Printer font wijzigen in Delphi 7 professional

4 antwoorden
  • Ik ben al een tijdje aan het puzzelen om een font aan te passen. Ik heb een aantal methodes geprobeerd. Op zich werkt de standaard methode voor een Windows font zie onder. Het betreft een bestaand (een vermoedelijk Windows 98 ) font, die ik wel in een graphic bitmap en de memo editor kan gebruiken maar kennelijk niet op vergelijkbare wijze kan gebruiker voor de printer. Moet het font op de printer zelf zitten? Of gaat er wat anders mis? Wat moet er anders? Deze methode lijkt op zich te werken: [code:1:7457bba684] Printer.Canvas.font.name:='Courier New'; Printer.Canvas.font.size:=12; [/code:1:7457bba684] Dit font is geinstalleerd maar wordt niet (goed) gebruikt: [code:1:7457bba684] Printer.Canvas.font.name:='Telewin'; Printer.Canvas.font.size:=14; [/code:1:7457bba684] De font size en de vorm van de letters veranderen dus wel. Maar de letters blijven standaard Windows terwijl het mij juist gaat om de speciale lettertekens die horen bij het font en die niet in de normale Windows fonts zitten. Dat is ook de reden dat ik graag het speciale font wil gebruiken.
  • Hans, Ik begrijp dat 'gewone' letters wel goed worden afgedrukt. Is dat juist? Ik zocht daarom naar het font Telewin, maar kon met yahoo en google niet zo'n font vinden. Ik ben 'onderweg', maar kan waarschijnlijk 'printen' naar mijn pdf-printer en zo mee helpen denken. Het Telewin font heb ik niet, zoals duidelijk mag zijn. Wil je: 1. aangeven met welke letters (ASCII-code) het probleem zich voordoet? 2. aangeven waar ik het Telewin font kan vinden? Wellicht kan ik je zo wat helpen (en mezelf wat 'wijzer' maken :lol: ). Groet, Maarten.
  • [quote:da382c59ca="Hans.Vosman"]Ik ben al een tijdje aan het puzzelen om een font aan te passen. Ik heb een aantal methodes geprobeerd. Op zich werkt de standaard methode voor een Windows font zie onder. Het betreft een bestaand (een vermoedelijk Windows 98 ) font, die ik wel in een graphic bitmap en de memo editor kan gebruiken maar kennelijk niet op vergelijkbare wijze kan gebruiker voor de printer. Moet het font op de printer zelf zitten? Of gaat er wat anders mis? Wat moet er anders? Deze methode lijkt op zich te werken: [code:1:da382c59ca] Printer.Canvas.font.name:='Courier New'; Printer.Canvas.font.size:=12; [/code:1:da382c59ca] Dit font is geinstalleerd maar wordt niet (goed) gebruikt: [code:1:da382c59ca] Printer.Canvas.font.name:='Telewin'; Printer.Canvas.font.size:=14; [/code:1:da382c59ca] De font size en de vorm van de letters veranderen dus wel. Maar de letters blijven standaard Windows terwijl het mij juist gaat om de speciale lettertekens die horen bij het font en die niet in de normale Windows fonts zitten. Dat is ook de reden dat ik graag het speciale font wil gebruiken.[/quote:da382c59ca] Font aanpassen? Wat wil je dan uitprinten? Volgens mij werkt dit alleen als je op het canvas van de printer gaat 'tekenen'
  • Idd dat font werkt alleen maar als je de code zo gebruikt : [code:1:5218f50966] with Printer do begin BeginDoc; for I := Start to Stop do begin Canvas.TextOut(0,0,'Hello World!'); // teken dus direct op het canvas v/d printer if I <> Stop then NewPage; end; EndDoc; end; [/code:1:5218f50966]

Beantwoord deze vraag

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.