-PR-
締切済み

ファイルを・・・

  • 困ってます
  • 質問No.91266
  • 閲覧数40
  • ありがとう数5
  • 気になる数0
  • 回答数3
  • コメント数0

お礼率 91% (31/34)

リストボックスかコモンダイアログを使ってファイルを指定し、
コマンドボタンをおすと、
その指定したファイルを印刷できるようにしたいのですが・・
通報する
  • 回答数3
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全3件)

  • 回答No.1
レベル12

ベストアンサー率 45% (210/459)

こんにちは。itohhといいます。

もう少し、具体的にどこがわからないか書いてくれないとアドバイスが出来ませんよ!
まさか、すべてのソースをここに書いて欲しいというわけではないですよね?

コモンダイアログの使い方がわからないとか、プリンタの指定方法がわからないとか、具体的に書きましょう。


  • 回答No.2
レベル13

ベストアンサー率 46% (643/1383)

印刷について。

●ExcelやWordのファイルを印刷する
DDLを使ってメッセージを送信する方法と、COMを使ってPrintメソッド等を実行する方法とがあります。

以下、COMを使ってExcelファイルを印刷する例です。

「参照設定」で、「Microsoft Excel 9.0 Object Library」にチェックをつけてから、

Private Sub Command1_Click()
 Dim ExcelApp As New Excel.Application
 With ExcelApp
  .Workbooks.Open Me.Combo1
  .Workbooks(1).Worksheets("Sheet1").PrintOut
  .Quit
 End With
 Set ExcelApp = Nothing
End Sub

Wordの場合も似たようなものです。

テキストファイルの場合は、メモ帳を使って
shell "Notepad /p " & me.combo1
とでもするのが手っ取り早いかも。

●Printerオブジェクトを使う方法
ファイルアクセス関係の関数を使ってファイルを読み込み、それを解析し、Printerオブジェクトに描画メソッドを使って絵を描き、EndDocメソッドでで印刷開始します。

対象となるファイルの仕様書が必要ですし、手間隙もかかりますが、目的のファイルが印刷可能なソフトがインストールされていない環境では、この方法を取るしかないですね。

不明点とかあったら、補足してください。
  • 回答No.3
レベル13

ベストアンサー率 59% (729/1235)

ファイルの印刷は

ShellExecute hWnd, "Print", File, "", "", SW_SHOW

で出来ます
このQ&Aで解決しましたか?
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


専門家があなたの悩みに回答!

-PR-

ピックアップ

-PR-
ページ先頭へ