"Jakob Jakobsen" <jaj@obh-k.dk> wrote:
>Er der ingen løsning på det ?
>
>
>Jakob Jakobsen <jaj@obh-k.dk> skrev i en
>nyhedsmeddelelse:%tcb6.57342$W81.647782@twister.sunsite.dk...
>> Når jeg udskriver med printer.canvas.textout() bliver skriftstørrelsen
>> anderledes på computere med en anden opsætning af skrifttyper. (windows
>> skrivebord egenskaber / små / store skrifttyper). Hvordan sikrer jeg at
>> skriftstørrelsen altid er ens på printeren?
Prøv at se efter printer.canvas.font.... i hjælpen
Jeg har selv for nogle år siden brugt følgende:
With Printer.Canvas Do
Begin
Font.Name := FontNameIni;
Font.Size := FontSizeHeaderIni;
Font.Style := [];
Font.Color := clBlack;
TextOut(0, 0, ''); { Opdater PixelsPerInch værdien ! }
TextOut( LeftPos, TopPos, SearchStr );
End;
Det er kun et brudstykke ( Delphi 1 ) men har virket, enda
på netværksprintere, og der er måske ikke længere brug for
den 'tomme' TextOut(0, 0, '');
Hilsen
------------------
Ove Kjeldgaard
------------------
|