掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
上書きモードにするには？ (ID：103754)
名前
ホームページ(ブログ、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 わかる方教えて下さい。お願いします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.