エクセルの学校：全文検索：Hyper Estraier：マクロ

Results of 1 - 1 of about 27304 for マクロ (0.014 sec.)

[[20050504173533]]: #score: 2167; @digest: 94500e5fccbd0ea2d2552d0f5035531f; @id: 13812; @mdate: 2009-02-13T06:35:03Z; @size: 7885; @type: text/plain; #keywords: デラ (48373), distiller (42357), postscript (18928), バル (16748), ラマ (15014), 準プ (14961), acrobat (12215), マ) (11481), タ名 (5971), activeprinter (5423), ルデ (5113), 名¥ (4420), プリ (3215), ンタ (2772), settings (2676), マ） (2560), ルブ (2543), （バ (2524), printout (2255), 存先 (2229), pdf (2180), documents (2015), デス (1895), 川野 (1748), マク (1656), ー名 (1642), クロ (1603), トッ (1560), リン (1511), ファ (1416), 検証 (1398), ina (1344); 『PDF印刷のマクロ』（バルデラマ）
約100枚に渡る各Sheet内容をPDF印刷したいのですがマクロで出来るでしょうか? 更に、PDFの各ファイル名は、各Sheet名を反映したいと思ってるのですが・・どなたか式を教えてもらますか? ---- 初めのシートをマクロの記録でやってみたらどうなりますか。（川野鮎太郎） ---- どうもお世話になってます。 マクロで記録したところ以下の様な記述でした。 Sub Macro1() ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub ACROBATを標準プリンタにした状態です。ファイル名も自動で入れたいのですが、どうにもチンプンカンプンでして・・（バルデラマ) ---- 今、アクロバットが無い環境なので試せませんが、標準プリンターを別のものにしてプリンターの選択からマクロの記録するといけると思いますよ。全てのシートを印刷するには、以下のようにループ処理してみてください。 Application.ActivePrinter = "Canon LBP-930 LIPS4 on LPT1:" ←ここにアクロバットを指定します。 For Each Sh In Worksheets On Error Resume Next Sh.PrintOut '多分、ここでファイル名を指定します。指定方法はマクロの記録で出ませんか。 ActiveWorkbook.SaveAs Filename:= _ "C:¥Documents and Settings¥ユーザー名¥デスクトップ¥" & Sh.Name Next Sh （川野鮎太郎）未検証なので、間違ってたらすみません。 ----- 朝早くからありがとうございます。試したところうまく行きました。ファイル名もシート名が反映されます! しかしそのつど保存の確認画面が出てしまうんですよ。これはスルーできないんでしょうか? マクロボタン押す以外は、終わりまで一切手を付けなくて良い形にしたいんですが。 (バルデラマ) ---- もう一度確認したところ、どうも現象が複雑のようなので上記訂正します。 PDFと同時にエクセルファイル自体も(シートごとに)保存されいるようです。つまりマクロ終了後にデスクトップ(保存先)には、同じ名前のPDFとエクセルブック 2枚ずつ保存されていきます。この場合、ファイル名の指定を変更すれば良いのでしょうか? 引き続きご教授よろしくお願いします。 (バルデラマ) ---- こちらに統合しました。（kazu） ---- 『INAさん教えてください』（バルデラマ）ネットで検索してて以下のサイトを見つけました。 http://park7.wakwak.com/‾efc21/cgi-bin/wwwlng.cgi?print+200311/03110252.txt これはもしや当サイトで活躍されているINAさんと同一人物でしょうか? もしそうなら、件のサイトはもう見れないようなので、もう一度教えてもらますか? 私にとって今死ぬほど欲しいマクロなんです。ちなみに私は↓で質問をした者です。『PDF印刷のマクロ』（バルデラマ）どうぞよろしくお願い致します。 M(__)M ---- 名指しで質問すると、他の方が回答しにくくなり、回答が付きにくくなるのでやめた方が良いですよ。使用するプリンタは、Acrobat Distiller で良いですか? ps.この質問以降は回答するのを自粛する予定です。(_ _) (INA) ------ 返答遅れてごめんなさい。やはり同一人物でしたか。使用するプリンタは、Acrobat Distiller です。よろしくお願いします。（バルデラマ) ----- サンプルブックを作りましたのでダウンロードして検証して下さい。 http://camaro.ddo.jp/Books.htm では。( ^ - ^ )ノ‾‾‾ (INA) ------ さっそく試しましたところ非常にスムーズです。ものすごく助かりました。本当にありがとうございます。それで、二つだけ質問させてください。 @まず、ファイルの保存先を変更するにはどこをいじれば良いでしょうか? Const strFilePS = "C:¥temp.PS" のところをいじってみたのですが、どうも違うみたいで・・ A次に、本マクロを個人マクロブックに写し他のファイルで実行したところ objPdfDistiller As New ACRODISTXLib.PdfDistillerのところで「ユーザー定義型は定義されていません」というエラーが出たのですがこれはどうすればクリアできるでしょうか? ちなみにサンプルブックのマクロからだと他のファイルでも実行できました。よろしくお願いします。( ^ ^ ) (バルデラマ） ---- >@ ファイル更新済み。 > A 要参照設定。 (INA) ---- 返事遅れました。いや〜凄いですね。（^^）保存先をスコーンと選べて感激です。ちなみにAの方はどういう意味なんでしょうか? (バルデラマ) ---- 「vbe 参照設定」→web検索で調べる。 (INA) ---- INAさん、どうもお久しぶりです。昨年の5月頃、INAさんに「myPdfDistillerPrint.xls」に作って頂いた者です。その節は大変助かり、ありがとうございました。しかし、最近Acrobatを5.0から6.0に変えたところ、急に上記マクロが動かなくなり困っています・・原因は分かりませんが、5.0の時にはコントロールパネルのプリンタ設定フォルダに表示されていた「PDF Distiller」が6.0に変えてからは表示されなくなったのが何か関係あるのかもしれません。随分前の話で申し訳ありませんが、どうぞよろしくお願い致します。（バルデラマ） ---- [バルデラマ]さん、こんにちは。 INAさんは事情があってか、年頭から回答自粛されていらっしゃるようですね。今までの経緯からすると、マクロでアクティブプリンタとして「PDF Distiller」を指定しているようですので、「PDF Distiller」がプリンタとしてセットアップされていないと始まりません。バージョンアップしたとせいか、プリンタ名が変化しているようです。アドビ社のHPを見る限りでは他のアプリケーションからの印刷時に、「[プリンタ名] で、[Adobe PDF] を選択し、」という表現が見えます。さて、こちらではReaderしか運用してないのでINAさんのマクロの検証が不可能な状態です。コードを見る限り、プリンタ名だけではなくて、参照するdllも変更する必要がありそうな感じですが、検証できないのではINAさんのマクロの改造もままなりません。ということで、INAさんのマクロはちょっと考えずに、川野さんのマクロが提出された時点でのやり取りを見直してみました。当初の川野鮎太郎さんのマクロでほぼうまく行った。しかしPDFとExcelブックが新たにセットで作成されてしまう。これが問題だったのですよね。川野さんのマクロを良く見ると、 ActiveWorkbook.SaveAs Filename:= _ "C:¥Documents and Settings¥ユーザー名¥デスクトップ¥" & Sh.Name 元となるブックをシート名で保存するステートメントが入っています。 PDFと同じ名前のブックが量産されたのはこのためです。が、PDFはシート名で作成されていたのですから基本は川野さんのマクロでよいと思うのです。 Acrobatを標準プリンタにして、川野さんの当初のマクロから上記ステートメントを消したもの、下記のコードを実行したらどうなるでしょうか? For Each Sh In Worksheets On Error Resume Next Sh.PrintOut Next Sh ただし、保存ディレクトリはその時点でのカレントになると予想されます。ここまではやり取りから判断した推測です。上記の方法がだめでも、残念ながら私はこの件にはこれ以上のフォローはできません。検証する環境がないためです。あしからずご了解ください。 (みやほりん)(-_∂)b ---- INAさん、お久しぶりです。 3年以上前に質問させて頂いた者ですが覚えていらっしゃいますか? もし宜しければもう一度質問させてください。今回、約3年ぶりに、INAさんに教えて頂いたマクロを参考にして「EXCELファイルのPDF化」を試しました。 (マクロは以下のとおり） Sub PSPRINT() Sheets("Sheet1").Activate With ActiveSheet SaveFileName = "C:¥Documents and Settings¥ユーザー名¥デスクトップ¥PS FILES¥Sheet1.ps" End With CurrentPrinter = Application.ActivePrinter ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "Acrobat Distiller on Ne04:", PrtoFilename:=SaveFileName End Sub 最初に上記マクロでPostscriptファイルにして、その次にDistillerでPDF化するわけですが、 POSTSCRIPT → PDF の変換がうまくいきません。 PostscriptをAcrobat Distiller 5.0で開いても、PDFに変換せず、txtファイルのみが出てきます。問題はどこにあるのでしょうか? 以前は問題なく変換できていました。もしかすると、Distiller側で何か細かい設定をしたかもしれませんが、記憶が定かでなく分かりません。ネットで検索してもそれらしい答えが出てこないので困っています。 INAさん、何かお分かりになれば教えてもらえませんか? よろしくお願いします。もしも、INAさん以外の方でも、何かお分かりになればご教示頂けると幸いです。 ※Acrobatは5.0を使っています。(一度6.0にしたけど戻しました） (バルデラマ） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200505/20050504173533.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ