任意のフォントを任意のサイズで印刷する方法が、サンプルＮｏ233に
記載されています。
複数枚印刷する必要があったので、printer.copies = 2 を
追加したところ、文字が重なる部分が空白を含んで上書きされて
しまいます。
どなたか解決策をご存知なら、ご教授願いたいのですが・・・。

> 文字が重なる部分が空白を含んで上書きされてしまいます。
> どなたか解決策をご存知なら、ご教授願いたいのですが・・・。

と言われても、貴方がそのような位置になるように指定しているからだと思うのですが。
印刷位置の指定とダミー出力の辺をよく見て下さい。

返信有難う御座います。
前述の、copies を指定せずに印刷しますと、思い通りに
行くのですが、何故か、複数枚指定すると、空白が上書き
されてしまいます。
プリンタドライバー関連でしょうか？
試しに、2種類の違うプリンタで出力してみましたが、
結果は同じでした。
こちらで手を加えずに、そのままサンプル通りのコードで
やってみましたが、copies を入れると印刷結果が
変わってしまいます・・・。

試して見ましたが、問題ありませんよ。
コントロールパネルのプリンターの設定で部数を２部に指定してから
印刷してみて下さい。

hhttp://support.microsoft.com/default.aspx?scid=kb;ja;JP412851
のAPI を併用した出力が無効になる現象について の部分をご覧下さい。

対策
１．API を使って部数を指定すれば OK です。（結構面倒です。No.242 のサンプル）
２．手動でプリンターの設定を行う
３．ダイアログを表示して事前に部数を変更してもらう
   hhttp://www.bcap.co.jp/hanafusa/VBHLP/priset.htm
４．部数分だけ印刷処理を繰り返す
等々

ご指導頂きました、API を併用した出力が無効になる現象について を
参照しましたところ、

' FontTransparent プロパティが有効にならない場合
    Printer.FontTransparent = False    '「透過しない」に設定
    Printer.Print " "                  ' 半角のスペース
    Printer.FontTransparent = True     '「透過する」に設定

上記分を、印刷ルーチンに挿入し、実行後、問題は解決されました。
本当に有難う御座いました。