• ベストアンサー

プログラムでフォルダー内のファイルを印刷

VBのプログラムを使って、指定したフォルダー内のサブフォルダー内も含めて、そこにあるファイル名を印刷するには、どのようにコーディングすれば良いか、ご存知の方は教えてください。よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • osaosa42
  • ベストアンサー率60% (20/33)
回答No.2

こんなんでどう? Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long '指定ファイルを印刷します。 Function MyPrintFile(srtPath As String) As Long MyPrintFile=ShellExecute(Me.hwnd, "Print", strPath, "", "", 0) End Function

imogasi
質問者

お礼

どうも有難うございました。お礼が遅れて申し訳ございませんでした。今後ともよろしく。

その他の回答 (1)

  • kougasha
  • ベストアンサー率32% (34/105)
回答No.1

DIR関数で、ループしながら素直に処理を記述する方式では駄目なのでしょうか? プログラムそのものを書いて欲しいというのなら、ちょっと虫が良すぎかも...(笑)。 VBのオンラインヘルプに使用例が載っていると思いますよ。

関連するQ&A

  • フォルダ内のサブフォルダ名やファイル名の取得

    VB初心者です。 あるフォルダ内のサブフォルダ名や数、ファイル名を取得したいのですが・・・ コントロールのDirListBoxを使用するか、Dir関数を使用したいのですが、上手くできません。 ご存知の方、教えてください

  • PDFファイルを指定の名前でプログラムから自動出力したい

    お世話になります。 今まで自動印刷していたプログラムを、 紙に印刷するのではなく、PDFファイルに変換し、 指定フォルダ、指定の名前で出力したい。 ポイントは、 出力フォルダやファイル名をプログラムから コントロールしたいです。 無料で出来れば良いのですが、 無ければ有料のコンポーネントを使用しても かまいませんので、良い方法があればご教示下さい。 動作環境:WindowsXP 開発言語:VB6.0 以上、よろしくお願い致します。

  • フォルダ内のファイル名の取得

    開発環境 VB2008 少し前にVB始めたばかりです。 簡単なプログラム作成を行っているのですが フォルダ指定のダイアログで指定した、フォルダの中にあるファイル名のリストをリストボックスなどに出力したいのですが、コードがわかりません。 色々似たような質問などがあったのですが、理解不足か知識不足なのか使いこなせなさそうなので、新しく質問させていただきました。 わかりやすく教えていただけるとうれしいです。 よろしくおねがいいたします。

  • fortranでサブフォルダに保存したい

    基本的な知識なのかもしれないですが・・・ fortranで計算結果をファイルに出力させたいのですが,時系列データで大量にあるので自動で名前をつけて沢山のファイルをつくるプログラムを作っています。 その際,保存場所を指定しない場合プログラムファイルのあるフォルダに保存されるのですが,数が多いのでサブフォルダに保存したいと思っています。アドレスをすべて書けばできると思うのですが,できれば今いるフォルダからの指定にしたいと思っています。 VBなどでは簡単にできるので,fortranにもあると思うのですが,探しても見つからなかったので,知っている方がいましたら指定のやり方を教えてください。

  • 指定したフォルダからファイル名を取得する方法

    指定したフォルダからファイル名を取得するプログラムを作成しています。カレントディレクトリは上手く読み込めるのですが、サブディレクトリに入ると、アルファベット順にファイルを読んでいくため、そのサブディレクトリのファイルを全て読み込む前にまた別のサブディレクトリに飛んでしまいます。 何か良い方法はないでしょうか? 宜しくお願い致します。

  • ファイルを開かないで印刷

    windowsでアイコンを右クリックして印刷できるように、VB6やExcelVBAからソースコードで、テキストファイルやPDFファイル、Excelファイルなどをファイル名を指定するだけで開かずに印刷できないものでしょうか?宜しくお願い致します。

  • ファイル名指定で、あちこちのフォルダのファイルを選択したい

    メールに画像を添付する時に、参照からその画像のフォルダを選んで、その中の画像ファイルを選択しますが、もっとダイレクトに画像ファイル名から選ぶことは出来ないのでしょうか?100人くらいの方に、1人づつ違う画像を添付して送りたいのですが、その画像があちこちにあり、また そのあちこちのフォルダのサブのサブにあったりします。なお、そのフォルダは移動したり、コピーすることは出来ません。画像のファイル名はわかっていますので、 参照→ファイル名指定→選択→添付 という感じの作業がしたいいのですが・・・。どなたかいい方法を教えていただけませんか?よろしくお願いします。

  • VBAフォルダやファイル操作について

    VBA初めての初心者です。 VBAのフォルダとファイル操作関連の質問です。(初心者です) 【やりたいこと】 画面から、 入力フォルダのパスを入力する・・・(1) 出力フォルダのパスとファイル名を入力する・・・(2) ・処理概要 入力されたフォルダ内のファイルを順次読み込み、 リネームして、出力フォルダに追加出力する。 (1)フォルダ内全ファイルを出力して終了する。 追加処理として、 (1)を複数入力できるようにしたいと思います。 ・詳細処理 出力フォルダのファイルネームは、連番であり、 画面での入力(2)ファイル名から連番したファイル名(+1していく) 出力するデータ内容は(1)のコピーのままでよい。 入力されたフォルダ内の全てのファイルを実行して終了する。 このようなプログラムなのですが、 初心者で、 わかりません。 思うようにコーディングしても 動きません???? どのように コーディングすればいいですか?

  • AcrobatのPDFファイルをファイル名指定するプログラムを書きたい。NTと98の違い?

    AcrobatのPDFファイルをファイル名指定するプログラムを書きたいと思って、以下のようなWord2000のVBAプログラムを試しました。(コントロールパネルで、通常使うプリンタは、Acrobat PDFWriterにしてあります。) WindowsNT4.0ならば、大丈夫なのですが、Windows98で同じことをすると、ファイル名が指定したことになりません。 対処方法等ご存知の方がおられましたらぜひ教えてください。 Sub MacroTest() Application.PrintOut OutputFileName:="c:\test", _ Append:=False End Sub

  • フォルダの全ファイル名を自動的に取り込むには

    ビジュアルベーシク(VB5)でドライブ、フォルダ、ファイルの各アイコンをフォームに配置して動作させると、手動でファイル名を取得できますが、フォルダを指定したらその中のファイル名全てを、自動的に文字配列変数に取り込むにはどうしたらよいでしょうか?よろしくお願いします。