Using ScreenResMode 1440

procedure PrintToMetaFile(LineNum: Integer);
  const
    ADJUST_PIXELS = 2;
  var
  	MF: TMetafile;
    MFC: TMetafileCanvas;
    R: TRect;
    ActualHeight: Integer;
    LastLine: Integer;
  begin
    // Define the draw rect area (100% only).
    R.Left := LeftDots;
    R.Top := TopDots;
    R.Right := WidthDots + LeftDots;
    R.Bottom := HeightDots + TopDots;


  	// Create the metafile and set its dimensions.
		MF := TMetafile.Create;
    try
      MF.Height := HeightDots;
	    MF.Width := WidthDots;


      // Create the metafile canvas and draw to it.
	    MFC := TMetafileCanvas.Create(MF, Canvas.Handle);
			try
        // Draw the WPRichText at 100% zoom.
        MFC.Brush.Color := PrintColor;
        // HeightDots + 2 to ensure last line is printed. (Until such time as more accurate method can be used).
        ActualHeight := HeightDots + ADJUST_PIXELS;


        MFC.FillRect(Rect(0, 0, WidthDots, ActualHeight));


        // Get the last line that was printed in this clone.
        FLastLineNum:= WPC.Draw(MFC, 0, 0, MF.height, LineNum, 0) - 1;


			finally
      	// Freeing the metafile canvas actually saves it to the metafile object with which it is associated.
	      MFC.Free;
      end;


      // Apply zoom factor by way of adjusting the drawn rectangle.
      R.Left := Trunc(R.Left * ZoomFactor);
      R.Top := Trunc(R.Top * ZoomFactor);
      R.Right := Trunc(R.Right * ZoomFactor);
      R.Bottom := Trunc(R.Bottom * ZoomFactor);


      // Stretch draw creates the illusion of zooming.
    Canvas.StretchDraw(R, MF);
    finally
    	MF.Free;
    end;
  end;