No.3ベストアンサー
- 回答日時:
ご提示いただいたコードの中には印刷指示すらないようですね。
コードがブツ切りなので確信は持てませんが、
--------
'発行
Dim 発行
発行 = "'" & ブック名 & "'!発行"
Application.Run 発行
--------
Application.Run メソッドは、現在開いている (このコードが書かれているブックじゃない) 別のブックに書かれている VBA コードを実行するものです。
そのブックのファイル名は変数 「ブック名」 の中に書かれているはずです。
そのブックの中に 「発行」 という名前のプロシージャがあって、それを呼び出しています。
「発行」 プロシージャを解析してみれば印刷ダイアログの秘密が明らかになるのではないでしょうかね。
この回答へのお礼
お礼日時:2016/01/15 00:52
これですね!↓ お世話になりました。
Application.Dialogs(xlDialogPrinterSetup).Show 'プリンター切変えダイアログ
No.2
- 回答日時:
とある特定のエクセル ファイルでは
「コントロールボタンで印刷できるようになっています。 そのボタンを押すと、確認メッセージが出て、YES選択すると、プリンターの選択画面が出ます。」
という流れの動作をするように作りこんである。
他のファイル (他の特定のファイルなのか、その PC で開くエクセル ファイルならすべてなのか、他の PC でもそうしたいのかは不明だが) でも同じ流れの動作をするようにしたい。 (プリンターの選択画面を出す部分だけ?)
[ボタンをクリック] → [確認メッセージ Y/N] → [Y] → [プリンター選択] の部分をどのように作りこんであるのかを質問文に公開するわけにはいかないのですか?
No.1
- 回答日時:
質問の趣旨が今一つ理解できないので
見当はずれかもしれません
コモンコントロールやWindowsAPI使えばプリンタの選択はできますが
そういった話ではないのでしょうか?
例)
http://www.hanatyan.sakura.ne.jp/vb6/print08.htm
この回答へのお礼
お礼日時:2016/01/14 06:21
回答ありがとうございます。
参考になるサイトですが、少々納得するのに時間がかかりそうです・・・。
質問が舌足らずだったようです。補足します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAで手差しトレイを指...
-
プリントスクリーンで使うプリ...
-
マクロで印刷時のポートについて
-
同機種のプリンターを使い分けたい
-
デバイスマネージャーにプリン...
-
windowsNTでプリンターを使用
-
Excelの印刷向きが指定できない。
-
スマホの写真を家のプリンター...
-
Wordで用紙サイズが出ない
-
15年前に買った、TVとBDレコー...
-
プリンターがプリントされませ...
-
プリンター買い替え時の設定に...
-
WIN10でプリンタを削除してもポ...
-
win10で印刷をクリックすると「...
-
ワードの印刷設定(手差しトレ...
-
PCとプリンター
-
オフラインのプリンターをオン...
-
用紙切れという表示が出て印刷...
-
プリンターで
-
複写機とは
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
プリントスクリーンで使うプリ...
-
エクセルVBAで手差しトレイを指...
-
プリンターがプリントされませ...
-
マクロで印刷時のポートについて
-
WIN10でプリンタを削除してもポ...
-
Canonのプリンターの初期化 G33...
-
デバイスマネージャーにプリン...
-
プリンター買い替え時の設定に...
-
プリンターの上に物(約2.5kgぐ...
-
同機種のプリンターを使い分けたい
-
active directory ドメインサー...
-
通常使用するプリンターの設定...
-
このケーブルは何に使うもので...
-
Wi-Fiでプリンター混線の可能性...
-
プリンタがずっと「調査中」です。
-
win10で印刷をクリックすると「...
-
Excelの印刷向きが指定できない。
-
キューのドキュメントをキャン...
-
ワードの印刷設定(手差しトレ...
-
Brother PC-FAX v.2.2ドライバ
おすすめ情報
質問させていただいた後もいろいろ調べてみました。
①他のPCでもプリンターの選択画面が出ます。かたや、XP。かたやセブンです。
②エクセルファイルは、専門の業者が作成したものです。
「新しいバージョンです」、と送られたそのファイルにおいては、プリンターの選択画面が出ません。
この時点で、その業者に聞くのが一番早いという気がします。が、弊社の人間が変更加筆した可能性もあると思っています。その人は退社してしまってます。
印刷付近のVBAコードは以下のような感じです。
---------------------------------------------------
'確認ポップアップ
vbYesNo = MsgBox("パレット通番紙を発行します。よろしいですか", vbExclamation + vbOKCancel, ブック名)
If vbYesNo = vbCancel Then
GoTo ENDSUB
End If
'発行
Dim 発行
発行 = "'" & ブック名 & "'!発行"
Application.Run 発行
ENDSUB:
' 2009/04/01 ADD 1LINE by Fsol
Application.ScreenUpdating = True
'ブックとシートの保護
Worksheets("パレット通番紙発行指示").Protect Password:="nacsnacs", DrawingObjects:=True, Contents:=True, Scenarios:=True, userinterfaceonly:=True
Workbooks(ブック名).Protect Password:="nacsnacs", Structure:=True, Windows:=False
' 2009/04/01 ADD 1LINE by Fsol
Application.StatusBar = False
Application.EnableEvents = True