印刷をするには？ (ID:103793)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 始めまして、鉛筆（HB）です。 最近、VBを使って、なにか作ろうと思いはじめました。 そこで、テキストエディタを作成しています。 そして、下記の壁にぶち当たりました。 印刷をコモンダイアログを使って、作成したのですが、 一応プリントできるのですが、へんな枠と、ダイアログが表示されません。 どうしたらいいか解りますか？ 下記に、プリントの部分だけのソースを貼ります。 Private Sub FilePrint_Click() Dialog1.ShowPrinter '// フォームをコマンドボタンを除いて印刷します。 '// ラベルの BackStyle プロパティは 0-透明に設定します。 Dim ctrLoop As Control ' コマンドボタンは非表示にする For Each ctrLoop In Text.Container If TypeOf ctrLoop Is CommandButton Then ctrLoop.Visible = False End If Next Form1.BackColor = vbWhite '背景色を白にする Form1.PrintForm 'フォームのハードコピーを出力 Form1.BackColor = vb3DFace '背景色を標準に戻す ' コマンドボタンの非表示状態を戻す For Each ctrLoop In Form1.Controls If TypeOf ctrLoop Is CommandButton Then ctrLoop.Visible = True End If Next End Sub わかる方教えて下さい。お願いします。