位置情報で子どもの居場所をお知らせ

1000ページほどのPDFファイルがあります。
そのうち、300ページほど印刷したいのですが、
印刷するページが1,7,10,21,35,50,83,105,178・・・と
ランダムなのです。

このままでは印刷ボタンを押してページ指定して・・・
という作業を300回繰り返すことになるので、何かいい方法はありませんでしょうか?

印刷する指定ページはテキスト(1,7,10,21,35,50,83,105,178・・・)であります。当方で、PDFファイルを1ページずつ分割したり、TIFファイルに変換することも可能です。
宜しくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

連続していない複数のページを印刷するには下記参照。


簡単ですよ。

参考URL:http://courier.adobe.co.jp/acrobat/a00018.html
    • good
    • 1
この回答へのお礼

ありがとうございます。
PDFもページ選択印刷ができたのですね。

今朝、早速その方法で始めてみたのですが、実は1000ページあるPDFファイルが合計9ファイルもあるので、時間的にかかりすぎてしまい
結局、他の方法が見つかったので参考までに掲載します。

(1)まずPDFを画像梱包・開梱ソフト(Vectorで無料)で入手。
(2)PDFを全てTIFファイルに開梱
(3)エクセルで、印刷したいTIFファイルのファイル名(拡張子込み)をシートAに入力。(1セル/1ファイル名で300行)
(4)シートBに以下の内容でマクロを組む。
 1)新しいシートを挿入
 2)シートAのファイル名を読み込んで、その画像を1)でできたシートに挿入。
 3)以下1)と2)を繰り返すようにマクロを組んでおくと画像が挿入されたシートが300枚できる。
(5)300枚のシートを選択して印刷!

以上です。

一緒に考えてくださった皆さんありがとうございました。

お礼日時:2007/04/19 14:26

PDFを編集できるなら 不要なページを削除した状態のPDFを作成しそれを印刷したらどうだろう?

    • good
    • 0
この回答へのお礼

さっそくのご返答ありがとうございます。

おっしゃるとおり、不要なページを削除すれば済みますが
1000-300=700ページを削除(しかもランダム)を消すのにも時間がかかるので、困っています。

WordやExcelではページ指定(カンマ区切り→1,7,10,21,35,50・・・)によって複数ページが一括で印刷できるので、PDFでも何か方法がないかと探しています。

お礼日時:2007/04/18 15:51

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QPDFで複数のページを選択して、いっぺんに印刷する方法

アクロバットリーダーでPDFファイルを紙に印刷をしたいのですが、全てのページが必要ではなく、歯抜けに印刷したいのですが方法がわかりません。
例えば、全50ぺージのPDFファイルで4ぺージ目と10ページ目と13ページ目となどと選んでいっぺんに印刷する方法は、ありますか?
どなたか御存知でしたらお教え下さい。

Aベストアンサー

印刷ダイアログでカンマ区切りで指定できるのかしら?

サムネーム表示をして、[ Ctrl ]キーを押しながら希望のページを選択
して[印刷]をします。
http://support.adobe.co.jp/faq/faq/qadoc.sv?225552+002
http://support.adobe.co.jp/faq/faq/qadoc.sv?229571+002#anc_f

上記URL先が直接リンクしない場合は以下の番号をこちら↓の文書番号
へ貼り付けて。http://support.adobe.co.jp/faq/faq/tfaqindex.sv
※文書番号
 225552
 229571

Q【EXCEL-VBA】PDFファイルを開いて印刷したい

お世話になります。
以前、以下のリンク先の質問でA1セルに入力されたファイル名(フルパスの)を取得し
PDFを開くマクロを頂きました。
※ご解答頂いたWindFallerさん、maiko0333さん、ありがとうございました。
このマクロはすごくシンプルで使いやすいので今でも仕事で使っております。

で、、、今回、これをカスタマイズして「印刷もしたい」と思ったのですが、
印刷するためのコードの追加方法がわかりませんでした。

このコードに固執してないので、別の方法でもかまいません。
ですが、ネットで調べたところ複雑なコードばかりでした。
リンク先のようなシンプルなコードでPDFファイルを開いて
印刷することって出来ないのでしょうか?

すいませんが詳しい方、説明の上手な方、
直接、コードで説明できる方、マクロでPDFファイルを開いて印刷するための
コードを教えて下さい。よろしくお願いします。


リンク先:PDFファイルを開くマクロ
「PowerShellを使って関連付けられたアプリケーションでファイルを開く時のエラー」
https://oshiete.goo.ne.jp/qa/9338065.html

追記
1)開いたPDFファイルを閉じる必要はありません。
開けっ放しでOKです

2)前述していますし、リンク先を見て頂ければわかると思いますが、
A1セルに入力するファイル名はフルパスです。
※詳細はリンク先の説明、画像をご覧ください

3)PDFファイルはどれも1枚だけです。
※複数ページのPDFはありません。

以上です。すいませんがよろしくお願いします。

お世話になります。
以前、以下のリンク先の質問でA1セルに入力されたファイル名(フルパスの)を取得し
PDFを開くマクロを頂きました。
※ご解答頂いたWindFallerさん、maiko0333さん、ありがとうございました。
このマクロはすごくシンプルで使いやすいので今でも仕事で使っております。

で、、、今回、これをカスタマイズして「印刷もしたい」と思ったのですが、
印刷するためのコードの追加方法がわかりませんでした。

このコードに固執してないので、別の方法でもかまいません。
ですが、ネットで調...続きを読む

Aベストアンサー

こちらを参考にして
https://www.moug.net/tech/acvba/0130005.html
こんな感じで動きました。(Windows7 64ビット , Excel2010 32ビット)

Option Explicit

Declare Function ShellExecute Lib "SHELL32" Alias "ShellExecuteA" (ByVal hwnd&, ByVal lpOperation$, ByVal lpFile$, ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowCmd&) As Long

Public Sub PrintPDF()
 Dim strPath As String

 strPath = Range("A1").Value
 ' 現在の位置とサイズで表示 5(SW_SHOW)
 Call ShellExecute(Application.hwnd, "open", strPath, vbNullString, vbNullString, 5)
 ' 印刷
 Call ShellExecute(Application.hwnd, "print", strPath, vbNullString, vbNullString, 5)
End Sub

こちらを参考にして
https://www.moug.net/tech/acvba/0130005.html
こんな感じで動きました。(Windows7 64ビット , Excel2010 32ビット)

Option Explicit

Declare Function ShellExecute Lib "SHELL32" Alias "ShellExecuteA" (ByVal hwnd&, ByVal lpOperation$, ByVal lpFile$, ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowCmd&) As Long

Public Sub PrintPDF()
 Dim strPath As String

 strPath = Range("A1").Value
 ' 現在の位置とサイズで表示 5(SW_SHOW)
 Call ShellExecute(Applica...続きを読む

QPDFファイルを開き、印刷し、閉じるマクロ

Excel 2003 VBAにて、
PDFファイルを開き、印刷し、閉じるマクロを作りたいと思っています。

Dim AA, AAA

AA = "C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe C:\Scan\20131101160734050_001.pdf"
AAA = Shell(AA, vbNormalFocus)

にて、PDFファイルを開くことは出来ました。
このPDFファイルを、「印刷し、閉じる」ためには、
このPDFファイルを指定する必要があると思いますが、
その構文が判りません。
知っている方、教えて下さい。

Aベストアンサー

#3です。
WShell.Execを使うと閉じる事ができる様ですが、色々と気難しくて苦労しました。
まず、なぜかAdobe Reader/Acrobatのフルパスを与えないと、ファイルがみつからないとゴネます。

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub test()
printPdf2 GetDesktopPath & "\test.pdf", "DocuWorks Printer", "DocuWorks Printer Driver"
' printPdf2 GetDesktopPath & "\test.pdf"
End Sub

Sub printPdf2(pdfDocument As String, Optional printerName As Variant, Optional printerDriver As Variant)
Dim cmdLine As String
Dim WShell As Object
Dim oExec As Object
'ここは調整の必要がありそう
Const waitTime As Long = 1000
'Windows7 Home 64bitの場合です
Const pgmFullPath As String = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe"

Set WShell = CreateObject("WScript.Shell")
If IsMissing(printerName) Or IsMissing(printerDriver) Then
cmdLine = "pgmFullPath /n /s /o /h /t ""pdfFullPath"""
cmdLine = Replace(cmdLine, "pgmFullPath", pgmFullPath)
cmdLine = Replace(cmdLine, "pdfFullPath", pdfDocument)
Else
cmdLine = "pgmFullPath /n /s /o /h /t ""pdfFullPath"" ""printerName"" ""printerDriver"""
cmdLine = Replace(cmdLine, "pgmFullPath", pgmFullPath)
cmdLine = Replace(cmdLine, "pdfFullPath", pdfDocument)
cmdLine = Replace(cmdLine, "printerName", printerName)
cmdLine = Replace(cmdLine, "printeDriver", printerDriver)
End If
Debug.Print cmdLine
Set oExec = WShell.exec(cmdLine)
Sleep waitTime
'Windows7Home/64bit環境ではここで実行時エラーが出るので無理矢理先に進めていますが
'Adobe Readerは閉じられる様です
On Error Resume Next
oExec.Terminate
Set WShell = Nothing
End Sub

Private Function GetDesktopPath() As String
Dim wScriptHost As Object, strInitDir As String
Set wScriptHost = CreateObject("Wscript.Shell")
GetDesktopPath = wScriptHost.SpecialFolders("Desktop")
Set wScriptHost = Nothing
End Function

Terminateで原因不明のエラーが出るのでWebを漁っいて下記をみつけました。64bit環境でエラーが出るのはこれも関係しているのでしょうか?少々無理をしている様なので、ご使用時はご注意下さい。
Terminate メソッドは最後の手段としてのみ使用します。これは、アプリケーションによっては適切にクリーンアップできない場合があるためです。通常は、プロセスを途中で中断せず、プロセス自身で実行を終了させるようにします。Terminate メソッドは WM_CLOSE メッセージを使ってプロセスを終了しようとします。これで終了できない場合は、通常のシャットダウン手順を実行せずに、プロセスを強制終了します。
http://msdn.microsoft.com/ja-jp/library/cc364387.aspx

#3です。
WShell.Execを使うと閉じる事ができる様ですが、色々と気難しくて苦労しました。
まず、なぜかAdobe Reader/Acrobatのフルパスを与えないと、ファイルがみつからないとゴネます。

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub test()
printPdf2 GetDesktopPath & "\test.pdf", "DocuWorks Printer", "DocuWorks Printer Driver"
' printPdf2 GetDesktopPath & "\test.pdf"
End Sub

Sub printPdf2(pdfDocument As String, Optional printerName As Variant, Optional prin...続きを読む

Q複数ページのTIFファイルを分割する方法

オフィス複合機リコーimagio MP C3500で複数枚の資料をスキャンしたところ、
一つのTIFファイルにまとめられてしまいました。

これを1ページずつに分割したいのですが、
どうしたらいいですか?

当方の画像ソフトはフォトショップ・エレメントのみです。
これを使う方法か、もしくはフリーソフトを教えてください。 

Aベストアンサー

それほどページ数が多くないのなら、
すべて選択 →イメージのコピー →ペイントを立ち上げて貼り付け →名前を付けて保存
で十分かと思いますが。

50ページも100ページもあるようならこのあたり↓
http://www.vector.co.jp/soft/win95/art/se222393.html
で用が足りるかと思います。
※「tiff 分割」で検索して一番先頭に出てきましたが、これではダメという事でのご質問でしょうか?

Q1枚の紙に4つ同じものを印刷したいのですが?

ワードやエクセルで作ったのもを 1枚の紙に縮小して 4つ印刷したいのですが、どうしたらよいのでしょう?

Aベストアンサー

プリンタの割付印刷という機能を使います。

具体的には、Wordの場合は次のように操作します。

1) 「Ctrl+P」キーで「印刷」ダイアログボックスを表示させます。
2) 「拡大/縮小」欄で「4ページ」を指定します。

3) 「印刷範囲」欄の「ページ指定」のラジオボタンをオンにし、「1,1,1,1」と「1」を「,」で区切りながら入力します。
4) 「OK」ボタンを押します。

Excelの場合は同じページを複数指定する欄がありませんので、予め、コピペして4ページ分のデータを用意します。

1) 「Ctrl+P」キーで「印刷」ダイアログボックスを表示させます。
2) 「プリンタ名」の右にある「プロパティ」をクリックすると「プリンタ名のプロパティ」ダイアログボックスが表示されます。

3) 「ページ設定」タブの「割付印刷」を指定し、「詳細設定」ボタンを押して「4ページ」を指定します。
(お使いのプリンタによって、名称が異なる場合がありますが、同じような機能の設定項目があると思います。)
4) 「OK」ボタンを押して、ダイアログボックスを閉じ、「OK」を押します。

なお、上記はいずれも用紙の設定が縦長の場合です。
(横長に設定されている場合は、違った結果になります。)

「第39回-SIDE A|PCまめ知識【キャリア・ラボ】」
http://www.fujistaff.com/skill/it/a39.html

プリンタの割付印刷という機能を使います。

具体的には、Wordの場合は次のように操作します。

1) 「Ctrl+P」キーで「印刷」ダイアログボックスを表示させます。
2) 「拡大/縮小」欄で「4ページ」を指定します。

3) 「印刷範囲」欄の「ページ指定」のラジオボタンをオンにし、「1,1,1,1」と「1」を「,」で区切りながら入力します。
4) 「OK」ボタンを押します。

Excelの場合は同じページを複数指定する欄がありませんので、予め、コピペして4ページ分のデータを用意します。

1) 「Ctrl+P」キ...続きを読む

QPDFの一部のページを削除する方法を教えて下さい。

度々お世話になっております。

他の方からPDFにて資料が来ましたがこちらの最初と最後のページを削除して
取引先に提出したいと思っています。

元データがない中でこういった作業は可能でしょうか?

宜しくお願い致します。

Aベストアンサー

No.1さんのお礼にある追加質問に回答。
> プロテクトがかかっているかどうかはどうやったら分かるのでしょうか

Adobe ReaderでPDFファイルを開きます。
印刷禁止になっていたら、右上のほうのプリンタのアイコンが薄くなり、印刷できません。

あとは、Adobe ReaderでPDFファイルを開いたまま、ファイル→プロパティメニューでセキュリティを選びます。

印刷:許可
文書アセンブリ:許可
内容のコピー:許可
...といったPDFの印刷や改変に関する可・不可が表示されます。


プロテクトがかかっていて一部のページだけの抽出ができない場合、
No.2さんの回答されたPDF Split and Mergeは残念ながら使えません。

プロテクトがかかっていた場合は、
Brava! Reader( http://www.bravaviewer.jp/products/reader/index.html )で目的のPDFファイルを開き、No.4さんの回答されている仮想プリンタのCube PDFで特定ページだけを再PDF化することができます。

(わかりにくい文章ですみません)

No.1さんのお礼にある追加質問に回答。
> プロテクトがかかっているかどうかはどうやったら分かるのでしょうか

Adobe ReaderでPDFファイルを開きます。
印刷禁止になっていたら、右上のほうのプリンタのアイコンが薄くなり、印刷できません。

あとは、Adobe ReaderでPDFファイルを開いたまま、ファイル→プロパティメニューでセキュリティを選びます。

印刷:許可
文書アセンブリ:許可
内容のコピー:許可
...といったPDFの印刷や改変に関する可・不可が表示されます。


プロテクトがかかっていて一部のページだ...続きを読む

Qフォトビューアーでjpgの複数写真を1枚に印刷するには

二つのjpgファイルがあります。
これをWindows フォトビューアーを使い、1枚の紙に印刷する方法を教えて下さい。

jpgの一方をダブルクリックすると、Windows フォトビューアーが自動起動します。
ここで印刷(P)-印刷(P)を選ぶと、1枚の紙にいくつの写真を配置するかを選べます。
1枚目を左半分に配置したとき、右側に2枚目を配置するにはどうしたらよいでしょうか?

なお、フォトビューアーはWindows8.1に付属のもので、バージョンは不明です。

Aベストアンサー

[Windows フォトビューアー]だと、表示されている画像のみしか印刷が
できないと思いますよ。

[印刷]から選べる複数配置できるレイアウトは、同じ画像を複数枚指定
(部数指定)したときの配置であって、[Windows フォトビューアー]で
順番に表示したものを印刷するものではありません。
[画像の印刷]ダイアログで右下にある[各画像の部数]で指定したときの
部数で割り振られる枚数ですから。(同じ画像を2部/枚なら問題なし)

複数写真を1枚に印刷するなら[Windows フォトビューアー]で開かずに、
エクスプローラーの[共有]タブをクリックし、複数の写真を選択状態に
して[印刷]を指定してください。
同じ[画像の印刷]ダイアログが出ますが、この手順なら選択した写真で
複数枚指定ができるようになります。
http://dekiru.net/article/5606/

QPDFファイルを開かずに印刷したい

幾つものPDFファイルを印刷したいのですが、
できればAdobeReaderを起動させずに印刷したいです。

ファイルのアイコン上で右クリック→印刷でも可能ですが、
数が多くなると、この作業も大変です。
そこでVisualBasic2008ExpressEditionを使って、
簡単なシステムを作りたいと考えています。

しかし、PDFを開かずに印刷する方法が、どうしてもわかりません。
ネット検索、教えてgoo内の検索でもヒットせず途方に暮れています。
参考になるホームページや書籍がありましたら教えてください。
「こんな手法があるよ」というものでも構いません。

宜しくお願いします。

Aベストアンサー

PDFを開く際にACRORD32.exeに対して以下のコマンドラインを指定してください。

ACRORD32.EXE /s /l /p /h [PDFのパス]

コマンドラインの解説は参照URLを。

参考URL:http://scripting.cocolog-nifty.com/blog/2007/07/adobe_reader_81_e41e.html

Qexcelからexcelへの差し込み印刷

お世話になります。

excelでwordへの差し込み印刷をよく利用するのですが、
同様に、
excelのデータをexcelに流し込んで印刷する方法はありますでしょうか。

excelの名簿のデータを
excelの表のフォーマットに流し込んで
1人づつ印刷したいのですが。

お分かりの方いらっしゃいました教えてください。
どうぞ宜しくお願い致します。

Aベストアンサー

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

上記の品をお送り申し上げます。
ご査収ください

以上
Xの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,2,FALSE)
Yの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,3,FALSE)
Zの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,4,FALSE)

---
結果

送り状

住所山田 三郎
氏名東京都江東区

品物かばん

上記の品をお送り申し上げます。
ご査収ください

以上
ここで
VBE画面で標準モジュールに
Sub test01()
For i = 1 To 2 '人数分
Range("H1") = i
Range("A1:G20").PrintOut '印刷範囲は各人同じとする
Next i
End Sub
を張り付け、実行する。
山田、植田分の紙が2枚印刷されました。
これは質問者はVBAの経験も無いでしょうと、最低限にしてあります。
VBAを勉強してください。
別ブックにある名簿を対象などは複雑になるので避けています。

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

...続きを読む

QマルチページTIFFで指定ページを直接表示する方法は?

お世話になります。
現在、MS-AccessでTIFFファイル(名前と内容)を管理しています。
検索すると、目的の情報が○ページ目にあるか分かるようにしていますが、
TIFFファイルを開いて目的のページまで進むのが面倒です。
ファイルを開く時に、開いた時に表示されるページを指定する方法はありませんか?

OS:WinXP Pro
viewer:画像とFAXビューア

方法があるならば、他のviewerでもOKです。
宜しくお願いします。

Aベストアンサー

No.1 です。

コマンドラインから起動できれば、

i_view32.exe <画像ファイル名> /page=5

で出来るようです。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング