花ちゃん様、ご返信ありがとうございました。ご指摘の通りPrinter.ScaleMode = vbCharactersを追加してみたところ、無事出力することが出来ました。色々お手数おかけして申し訳ありません、ありがとうございました。