はじめまして、いまVBを使ってTextBoxに、ファイルを指定して
そのファイルの内容の一覧印刷ができるようなプログラムを組んでいます。
一部分だけですが、自分なりに考えて作ったものが、
FileNumber = FreeFile
Open frm01.CommonDialog1.FileName For Input As #FileNumber
Printer.Print StrConv(InputB(LOF(FileNumber), FileNumber), vbUnicode)
Close #FileNumber
Printer.EndDoc
のような感じで、もし他に方法があれば教えて欲しいのですが。
まだ、VBをはじめて1ヶ月程度の初心者なので、どうか詳しい方、
回答のほうをお願い致します。
No.1ベストアンサー
- 回答日時:
関連付けされているアプリケーションで印刷するなら
-------------------------------------------------
'ファイルを拡張子に関連付けされているアプリケーションで印刷
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
Private Sub Command1_Click()
Dim strPath As String
strPath = "C:\TEMP\TEST.TXT"
Call ShellExecute(Me.hwnd, "Print", strPath, "", "", 0)
End Sub
-------------------------------------------------
で、印刷できますけど。
求めている回答と違っていたらごめんなさい。
じゃ、そゆことで。
さっそくの回答ありがとうございます!
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
のあたりがよくわからないですけど、プログラムの中に組み込んでみて
何とか理解できるようにしたいと思います。
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」
の部分は、
Win32API(Windowsの基盤となるプログラムインターフェース)つーものです。
VB標準関数では実現できないこともできちゃうんです。
奥が深すぎますが・・・
初心者には、難しかったかもしれませんね。
ごめんなさい。
つーことで。
APIですか~・・・奥が深いですね~
ファイルを指定して印刷するところなのですが、
何とかできました!
いろいろやり方があるんですね。
APIなるものも今後勉強していきたいと思います。
また、VBの質問をしていることがあるかもしれませんので
見かけたらお願いしますね!
それではありがとうございました!!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) 【VBA】印刷マクロのループ処理が反映されません 3 2022/08/09 02:15
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- その他(プログラミング・Web制作) IT初心者です 仕事で、vb.netで作成されたdllをvbaで呼び出すプログラムを作成しろと言われ 1 2023/03/27 08:22
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/12 10:10
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAにて指定したセルをプルダウ...
-
VBからプリンタに出力する時に...
-
プリンタの印刷ジョブを削除し...
-
印刷画面が表示されない
-
ウェブ上の印刷について
-
VBSでExcelファイル印刷時のプ...
-
リンク先のページを印刷したい
-
A4の2枚をA3の1枚にする編集方法?
-
オートメーションエラー(214741...
-
スプレッド(Spread 6) で縮小...
-
ユーザーフォームのテキスト印刷
-
違うフォーマットの宛名印刷
-
2回以上PDFをコピーや印刷がで...
-
プリンターエラーの判定
-
印刷要求順番と印刷出力順番が...
-
VBでExcel印刷する時のプリンタ...
-
ActiveReportsを使って[印刷ダ...
-
VB.NET+ActiveReports で印刷...
-
ACCESSで設定した帳票の用紙サ...
-
Javaを使って、プログラムから...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷ダイアログを表示させない方法
-
印刷要求順番と印刷出力順番が...
-
ACCESSで設定した帳票の用紙サ...
-
vbaでPDFファイルが印刷されない
-
プリンターを指定して印刷するには
-
印刷ダイアログを表示させたくない
-
VBAで不特定枚数印刷をしたいで...
-
VBAにて指定したセルをプルダウ...
-
VB.NET+ActiveReports で印刷...
-
ActiveReportsを使って[印刷ダ...
-
VBscriptでPDFファイルを直接印...
-
PDFファイルを印刷し終了するには
-
webページの印刷制限について
-
イベントプロシージャ 印刷が...
-
クリレポのプリンタ設定について
-
両面印刷設定方法について
-
ファイルのパス指定での印刷方法
-
Accessフォームで全レコードを...
-
VBSでExcelファイル印刷時のプ...
-
VBAで印刷スプール終了の判定を...
おすすめ情報