Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44845 / 76732

←次へ　｜　前へ→


	【36897】Re:textboxの内容の印刷について

neptune - 06/4/17(月) 17:46 -


	引用なし

	パスワード

Wordを使うのは簡単に出来るようですよ。

参照設定でWordにチェック必要。サンプルです。
Private Sub CommandButton2_Click()
Dim objWord As Word.Application
Dim objDoc As Word.Document
　　Set objWord = New Word.Application
　　objWord.Visible = True
　　Set objDoc = objWord.Documents.Add(, , , True)
　　With objDoc
　　　　.Range.Text = Me.TextBox1.Text
'　　　　.PrintOut　'各種設定は自分で。このままでもOKかもしれないです。
　　　　DoEvents　　'必要かどうか不明だが一応書いている。無くても問題は無いと思う？
　　　　.Close wdDoNotSaveChanges
　　End With
　　Set objDoc = Nothing
　　objWord.Quit
　　Set objWord = Nothing
End Sub

立ち上がるのがまどろっこしいので、メモ帳かWordPadがいいかも？
そのうち、Testしたら書き込むかも？

6 hits

▼

【36793】textboxの内容の印刷について まだまだ初心者 06/4/13(木) 23:58