VBAで、VB6での

Printer.FontName = "MSゴシック"
Printer.FontName = 12
Printer.Print "hoge"
Printer.EndDoc

と同じ事をやるにはどうしたら良いですか？

シート上に文字を入力して、普通にプリントするのではダメで
プリンターの内蔵キャラセットで印刷を行うために、
プリンターに直接文字データを送りたいのです。

検索しても、VBAでシート上の印刷を行う方法を解説したものは
いくらでもありますが、テキストデータを送る方法は見あたりません

Excelのバージョンは2000と2002です。