No.5ベストアンサー
- 回答日時:
時間が足りなかったようですね
Application.Wait (Now + TimeValue("0:00:10"))← 0:00:20 とか増やす方法もありますが
環境によって変更するようだと、不細工なので
------ここから
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
'↑プリントアウト
Do
cuHw = FindWindow(vbNullString, "CubePDF 1.0.0RC4 (x64)")
Loop While cuHw = 0
'↑CubeBDFのウインドーが開いたかどうかを確認(この段階ではまだアクティブになるまで若干間がある)
SetForegroundWindow cuHw
'↑CubeBDFのウィンドーをアクティブ化
SendKeys "{ENTER}"
------ここまで
cuHw = FindWindow(vbNullString, "CubePDF 1.0.0RC4 (x64)")←この部分は環境によって変更の必要あり
"CubePDF 1.0.0RC4 (x64)" CubuPDFのバージョンに拠って変化します
添付画像を参考にして赤枠で囲まれたウィンド名に変更して下さい
Win32 API関数
SetForegroundWindow と FindWindow を使用していますので
標準モジュールに
-----
Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" _
(ByVal hwnd As Long) As Long
-----
宣言文をおいて下さい
http://www.happy2-island.com/excelsmile/smile01/ …
この回答への補足
ありがとうございました。
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ', IgnorePrintAreas:=False
'↑プリントアウト
の部分を
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, ActivePrinter:="CubePDF on Ne05:"
'↑ActivePrinter:="ここを変える" マクロの記録などで確認 <プリンタの設定>
に変えて使っています^^
2バイト文字のパス名の件は別で質問をあげることにします^^
助かりました!!ありがとうございます^^
ありがとうございます!!
目からウロコとはまさにこのことです!!!!m(__)m
ありがとうございます!
探す方も多い質問のようなので、
A1セルのファイル名を取得して保存するようにしたものをつけておきます。
(不完全なのでファイル名が英数字でないといけないようですが^^;)
【全て標準モジュール】(IgnorePrintAreas:=FalseはEXCEL2000では使えないらしいです)
~↓~以下~
Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" _
(ByVal hwnd As Long) As Long
Sub WEB2525SANARIGATO()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ', IgnorePrintAreas:=False
'↑プリントアウト
Do
cuHw = FindWindow(vbNullString, "CubePDF 1.0.0RC4 (x86)")
Loop While cuHw = 0
'↑CubeBDFのウインドーが開いたかどうかを確認(この段階ではまだアクティブになるまで若干間がある)
SetForegroundWindow cuHw
'↑CubeBDFのウィンドーをアクティブ化
Dim Fname As String
Fname = Range("A1") 'ファイル名を取得
PresentPrinter = Application.ActivePrinter
With CreateObject("Wscript.Shell") '保存先の所まで移動して名前をつける
.SendKeys "{TAB}"
.SendKeys "{TAB}"
.SendKeys "{TAB}"
.SendKeys "{TAB}"
.SendKeys "{TAB}"
.SendKeys Fname
.SendKeys "{ENTER}"
End With
Application.ActivePrinter = PresentPrinter
End Sub
No.4
- 回答日時:
>この先、作成(保存)までいく方法ありますでしょうか?
デフォルトの状態でPDF化して構わなければ
Sheets("DEMO").PrintOut , ActivePrinter:="Cube PDF"
Application.Wait (Now + TimeValue("0:00:10"))
'↑はCubePDFのウインドーが開ききるまでの待ち時間、数値は任意で指定
SendKeys "{ENTER}"
保存先やファイル名の変更、その他設定が必要な場合は
http://www.excel-vba.net/excel-application-006.h …
↑
こちらを参考に、変更して下さい
この回答への補足
解答ありがとうございます^^
試してみたのですが、
Enterが CubePDF 上で押されておらず、
エクセル上でおされる形となり、
エクセルの選択セルが一つずれるだけになってしまいます^^;
CubePDFがアクティブになっていないんだとは思うのですが。。。やり方が><;
わかりますでしょうか?
”いけましたー”とお礼を入れたかったのですが
AppActivateなど色々試しては みたものの
CubePDFを選択させる方法がわかりませんでした^^;
選択する方法をお教えいただけないでしょうか?
~~~
必要かどうかわかりませんが、
cubepdf.exe の場所は
C:\Program Files\CubePDF\cubepdf.exe
です。
No.3
- 回答日時:
管理者権限無しであれば新たなソフトのインストールは無理でしょう
>CubePDFというソフトで手作業で変換しています
CubeがインストールされているのであればCubePDFの仮想プリンターもインストールされていると思われます
ファイル⇒印刷 で使用するプリンターをCubePDFを選択すればPDFファイルが出力されるはずです
http://www.kananet.com/freesoft-cube-pdf/freesof …
解答ありがとうございます^^
Sheets("DEMO").PrintOut , ActivePrinter:="Cube PDF"
↑これで試してみたのですが、Cube PDFが起動するだけで、作成(保存)まで進んでくれないのです。。。
この先、作成(保存)までいく方法ありますでしょうか?><;
No.2
- 回答日時:
追記。
http://freesoft-100.com/pasokon/pdf_maker.html
に「印刷すればPDFファイルが出来る」と言うフリーソフトがいっぱいあります。
エクセルやワードで「印刷するだけ」でPDFファイルが出来上がるので便利ですよ。
Adobeにも「印刷するとPDFになる」ってのがありますが、買うと高いです。
PDFにするのは「印刷すればよいだけ」なんで、エクセルVBAででも簡単に実行出来ます(ブックを印刷するマクロをVBAで書くだけ)
この回答への補足
何度もありがとうございます!
XPの時はPrimo使えたんですが><;
管理者権限が厳しいですね^^;
Primoは確かVBAでPDF化まで出来てた記憶があるんですけどね。。。
7は非対応で(T T)
No.1
- 回答日時:
の「無料体験版」を使うと、エクセルのファイルを一発でPDFファイルに出来ます。
早い解答ありがとうございます^^
早速試してみたのですが、
"アクセス権が不十分なためこのマシンのすべてのユーザーが使用できるように
アプリケーションをインストールすることはできません。
管理者としてログインし、再度インストールしてください。
ということで、インストールが途中で止まってしまいます^^;
会社のPCのため管理者としてはログインできないので、
この方法では、できないという結論にしました><すみません。。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
字面がカッコいい英単語
あなたが思う「字面がカッコいい英単語」を教えてください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
PowerShellを使って関連付けられたアプリケーションでファイルを開く時のエラー
Excel(エクセル)
-
Excel VBAでPDFファイルをMicrosoft Print to PDFで出力したい
Visual Basic(VBA)
-
VBAでパス名(2バイト文字)のエラーを改善
Visual Basic(VBA)
-
-
4
EXCEL ページを指定してPDF出力するVBAを教えてください。
PDF
-
5
VBA:結合されたセルに対する「Target」について
Access(アクセス)
-
6
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
7
VBAで、なぜかSendkeyが効きません。
PowerPoint(パワーポイント)
-
8
PDF 最小サイズ"で保存するマクロ"
PowerPoint(パワーポイント)
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
PDFを結合して一つのPDFファイルにしたい。
PDF
-
11
【VBA】PDF出力に任意のファイル名前を付ける方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Outlook メールの添付ファイル...
-
Google Apps Scriptで自動印刷
-
PDF文書を拡大してコンビニで印...
-
ファイルの背表紙に印刷したい
-
スマホでcsvからpdfへの変換と印刷
-
エクセルVBAでPDFを作成したい
-
outlook2016のアドレス帳の印刷...
-
Docuworks(ドキュワークス)の不...
-
印刷した結果、文字が小さすぎ...
-
EXCEL ファイル更新日時...
-
ワード2013 印刷、PDF化で...
-
メールの添付ファイルの印刷
-
ワードで作ったものをペイント...
-
フラッシュメモリからの印刷
-
白黒写真に変換したい。
-
Webページの見えてない部分も含...
-
コマンドプロンプト 閉じた時の...
-
フォルダの削除について
-
ワードパットをワードに
-
C:\\Windows\\SoftwareDistribu...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Docuworks(ドキュワークス)の不...
-
Google Apps Scriptで自動印刷
-
PDF文書を拡大してコンビニで印...
-
スマホでcsvからpdfへの変換と印刷
-
Outlook メールの添付ファイル...
-
エクセルVBAでPDFを作成したい
-
ShellExcuteの"print”がExcel20...
-
ワードで作ったものをペイント...
-
Webページの見えてない部分も含...
-
メールアドレス一覧表を印刷したい
-
EXCEL ファイル更新日時...
-
パソコン画面をコンビニなどの...
-
花子2013 ウィンドウズ10で印...
-
outlook2016のアドレス帳の印刷...
-
Excel VBA Backstageビューでの...
-
Outlook Express未送信メールの...
-
WORDが印刷できない
-
Wordのテキストボックスの文が...
-
添付されてきた写真などの印刷...
-
Excelのファイルを複数印...
おすすめ情報