Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Printer font wijzigen in Delphi 7 professional

None
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

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