はじめまして、いま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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
印刷ダイアログを表示させない方法
-
vbaでPDFファイルが印刷されない
-
実行時に、フォームを印刷
-
印刷方向縦横変更の設定の仕方...
-
印刷要求順番と印刷出力順番が...
-
VB6上から印刷ダイアログを表示...
-
VBでExcel印刷する時のプリンタ...
-
印刷ダイアログを表示させたくない
-
VBAにて指定したセルをプルダウ...
-
VB.NET+ActiveReports で印刷...
-
VBからプリンタに出力する時に...
-
イベントプロシージャ 印刷が...
-
VBでアクセスのレポート(タッ...
-
プリンターを指定して印刷するには
-
ACCESSで設定した帳票の用紙サ...
-
プリンタの印刷ジョブを削除し...
-
VBからのプリンタ制御について
-
プリンタの状態を取得したいです
-
ミニチュアCDの作り方を教えて...
-
ActiveReportsを使って[印刷ダ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷要求順番と印刷出力順番が...
-
印刷ダイアログを表示させない方法
-
印刷ダイアログを表示させたくない
-
vbaでPDFファイルが印刷されない
-
プリンターを指定して印刷するには
-
A4の2枚をA3の1枚にする編集方法?
-
ACCESSで設定した帳票の用紙サ...
-
ファイルのパス指定での印刷方法
-
VBSでExcelファイル印刷時のプ...
-
VBでExcel印刷する時のプリンタ...
-
VBからプリンタに出力する時に...
-
2回以上PDFをコピーや印刷がで...
-
VBAで印刷スプール終了の判定を...
-
EXCELファイルの複数ダウンロー...
-
PDFファイルを印刷し終了するには
-
VB6上から印刷ダイアログを表示...
-
ActiveReportsを使って[印刷ダ...
-
MSAccessのVBAで印刷時の並べ替...
-
VBAで印刷の成功判定
-
[Visual Studio] ソースの印刷...
おすすめ情報