anchor.diff:    end;
     FCurrentCPP := ACPP;
     FCurrentCharWidth := Trunc(PinsPerCol * StandardCPP / FCurrentCPP);
  -  // fora o reposicionamento do carro para a nova compresso
  +  // força o reposicionamento do carro para a nova compressão
     with FCurrentPrintPos do
       SetPrintPos(Y, 0);
   end;
  
positive.code:   FontSizeBitmap := NeedAuxBitmap;
    FontSizeBitmap.Canvas.Font.Name := AFontName;
    FontSizeBitmap.Canvas.Font.Size := ASize;
    // a largura mdia de um caractere em pixels  dada pela largura da amostra em
    // pixels dividida pela largura da amostra em caracteres com a fonte indicada
    // um fator "mgico" foi calculado atravs de testes para chegar ao valor ideal  
    OneCharWidth := MagicDelta * FontSizeBitmap.Canvas.TextWidth(TextSample) / Length(TextSample);
    CharsPerInch := ScreenPPI / OneCharWidth;
    //
  
negative.code:       DeviceWrite(PrintCode('BoldOff'));
      FCurrentBoldState := newbold;
    end;
    // itálico
    newitalic := ((AStyle and MetaFontStyleItalic) = MetaFontStyleItalic) and (tsItalic in FTextStyles);
    if newitalic <> FCurrentItalicState then
    begin
  