常連

ローカルに保存したpdfファイルの中の文字列をVBAで拾いたいです。
AcrobatProを使うとできるらしいのですが、環境的に使うことができません。

pdfをテキストデータとして読みこんでみたのですが、
恐らく本文かと思われる部分が文字化けしてしまいます。（拾いたい本文は平仮名や漢字を含んでいます）
shift-jisやUTF-8でエンコードしてみましたが文字化けしています。

調べたら「Tfオペレーター」などの単語が見つかったのですが、私の持っているpdfファイルをメモ帳で開いてみてもTfという記述は見つかりませんでした。

正しく読み込むにはどうしたら良いのでしょうか。

【VBA】pdfファイルの中身の文字を取得したい

お世話になっております。
下記のようなコードで、あるpdfファイルをプリントアウトするようなプログラムを作成しております。

プログラムを動かすと、acrobat readerは立ち上がりますがファイルは表示されず起動初期画面状態です。
また、acrobat readerのエラーメッセージも発生しておりまして、
「この文書を開くときにエラーが発生しました。ファイルが開けません」
とのメッセージが出て、印刷まで到達できません。

ファイルパス自体は間違いなく存在し、パス自体をエクスプローラー等に放り込んでも
普通にファイルが開けます。
この場合、どのような要因が考えられるのでしょうか。ご教示いただけますと幸いです。

以下試してみたことです。
・ファイルの保存場所を変えてみましたが変化なしでした
・プリンタも色々切り替えてみましたが特に変化なく

環境：
win10
excel2019
acrobat reader dc


```VBA
Sub 印刷テスト()
    
    'Shell実行用の変数設定
    Dim wshShellObj As IWshRuntimeLibrary.WshShell                    'Shellオブジェクト
    Set wshShellObj = New IWshRuntimeLibrary.WshShell
    Dim strShellCommand As String                                              'Shellコマンド
    
                                                   'ファイル名
    Dim printFilePath As String                                                      'ファイルパス
    Dim printerName As String                                                      'プリンタ名
        
        printerName = "DocuCentre-V C3375"
 
        printFilePath = "C:\Users\●●●\Desktop\testfolder\プリントテスト\テストファイル.pdf"   '印刷するPDFファイルパス
        
        'Shellコマンドを設定
        strShellCommand = "AcroRd32.exe /t " & printFilePath & " " & printerName
        
        'Shellコマンドを実行
        wshShellObj.Run (strShellCommand)

    
    'オブジェクトを強制開放
    Set wshShellObj = Nothing
    
End Sub


```

VBAでpdfファイルを印刷する時、エラーが発生します

### 前提・実現したいこと

スプレッドシート上で、セルの範囲を指定した部分だけをPDF化し保存したいです。


今の段階でできていること
---

- シート全体をPDF化してGoogleドライブへ保存
- データ値が入っているセルの範囲だけを選択した状態にする

今の状態は、テキストが入っているセルの範囲の選択はできているものの
PDF化を実行させても、選択されたセルの範囲ではなくシート全体がPDF化してしまいます。


### 該当のソースコード

```gs

function chosepdf(){

//セルの範囲指定をする
var ss = SpreadsheetApp.getActiveSpreadsheet();
// そのスプレッドシートにある最初のシートを取得
var sheet = ss.getSheets()[0];
//データ値を持つセルの範囲を指定(空白も含まれる）
var range = SpreadsheetApp.getActiveSheet().getDataRange();
// そのシートにある A1:D10 のセル範囲を取得
//var range = sheet.getRange("B4:J61");
// そのセル範囲をアクティブに設定
range.activate();

}

function myFunction(){

   // マイドライブ直下に保存
   var root= DriveApp.getRootFolder();
   var folderid = root.getId();
  

  // 現在開いているスプレッドシートを取得
  var ss = SpreadsheetApp.getActiveSpreadsheet();
 // 現在開いているスプレッドシートのIDを取得
  var ssid = ss.getId();
   // 現在開いているスプレッドシートのシートIDを取得
  var sheetid = ss.getActiveSheet().getSheetId();
  var range = SpreadsheetApp.getActiveSheet().getDataRange();
// そのセル範囲をアクティブに設定 
  range.activate();

 // PDF作成関数
  createPDF( folderid, ssid, sheetid,customer_name + "_"+ timestamp ); 
}


 var ss = SpreadsheetApp.getActiveSpreadsheet();
//ファイル名になるセルの位置
 var customer_name = ss.getRange("A1").getValue();

// PDF作成関数
//引数は（folderid:保存先フォルダID, ssid:PDF化するスプレッドシートID, sheetid:PDF化するシートID, filename:PDFの名前）
function createPDF(folderid, ssid, sheetid, filename){

  //PDFファイルの保存先となるフォルダをフォルダIDで指定
  var folder = DriveApp.getFolderById(folderid);


  // スプレッドシートをPDFにエクスポートするためのURL。このURLに色々なオプションを付けてPDFを作成
  var url = "https://docs.google.com/spreadsheets/d/SSID/export?".replace("SSID", ssid);

  // PDF作成のオプションを指定
  var opts = {
    exportFormat: "pdf",    // ファイル形式の指定 pdf / csv / xls / xlsx
    format:       "pdf",    // ファイル形式の指定 pdf / csv / xls / xlsx
    size:         "A4",     // 用紙サイズの指定 legal / letter / A4
    portrait:     "false",   // true → 縦向き、false → 横向き
    fitw:         "true",   // 幅を用紙に合わせるか
    sheetnames:   "false",  // シート名をPDF上部に表示するか
    printtitle:   "false",  // スプレッドシート名をPDF上部に表示するか
    pagenumbers:  "false",  // ページ番号の有無
    gridlines:    "false",  // グリッドラインの表示有無
    fzr:          "false",  // 固定行の表示有無
    gid:          sheetid   // シートIDを指定 sheetidは引数で取得
  };
  
  var url_ext = [];
  
  // 上記のoptsのオプション名と値を「=」で繋げて配列url_extに格納
  for( optName in opts ){
    url_ext.push( optName + "=" + opts[optName] );
  }

  // url_extの各要素を「&」で繋げる
  var options = url_ext.join("&");


  // API使用のためのOAuth認証
  var token = ScriptApp.getOAuthToken();

    // PDF作成
    var response = UrlFetchApp.fetch(url + options, {
      headers: {
        'Authorization': 'Bearer ' +  token
      }
    });

    // 
    var blob = response.getBlob().setName(filename + '.pdf');

  //}

  //　PDFを指定したフォルダに保存
  folder.createFile(blob);

}

 // タイムスタンプを返す関数
  function getTimestamp () {
    var now = new Date();
    var year = now.getYear();
    var month = now.getMonth() + 1;
    var day = now.getDate();
    var hour = now.getHours();
    var min = now.getMinutes();
    // var sec = now.getSeconds();
    // return year + month + day + "_" + hour + min;
 
 }
 

```

### 

プログラミング初心者で勉強中です。

セルの選択とPDF化がバラバラの動作になっている状態ですので
PDF化の際の、範囲の指定方法があれば教えていただきたいです。

スプレッドシートで範囲を選択したセルだけPDF化する方法

EXCELで作成したファイルをPDFにしてプリンタに印刷したいのですが、
EXCELの状態で約７００KBだったものが
PDF化すると約４MBにまで膨れ上がってしまってプリンタに送信してもエラーになってしまいます。

自分なりにｇoogleなどで検索してみたのですが、大きくなる原因は【画像】が原因だと書いてあるサイトがほとんどなのですが、私のファイルには画像は一切ありません。お客様にも提出する予定なのでEXCELのまま印刷して提出するわけには行かないので、心当たりがある方どうかお知恵をおかしください。

以上です。よろしくお願いします。

EXCELファイルをPDF化するとサイズが6倍近く大きくなってプリンタで印刷ができない

Access(2007-2016)で開発中です。
以下の記事を参考にして、表形式フォームからチェックボックスを入れたレコードのみを、個別にpdf化したいと思っています。
■[レポートをPDFファイルに簡単に出力する方法](https://tsware.jp/tips/tips_522.htm)

今回解決したい課題は、OutputToメソッドにWhereCondition条件を設定する方法が分からず、全てのレコードがPDF化されてしまう点です。以下のように、EOFを使い、全レコードをループし、印刷したいレコードを選択するチェックボックス「印刷判定チェックボックス」がTrueのレコードのみをPDF化したいと考えています。

**〇T_請求書テーブル**
・請求書No:オートナンバー
・請求月：日付
・請求先クライアントID：数値
・請求額：通貨

```ここに言語を入力

Private Sub 印刷ボタン_Click()
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim i as Integer

i = 1
Set db = CurrentDb()
Set rs = db.OpenRecordset("T_請求書テーブル")

Do Until rs.EOF
       
 If rs.Fields("印刷判定チェックボックス") = True Then
  DoCmd.OutputTo acOutputReport, "R_請求書レポート", acFormatPDF, "C:パス\PDFファイル名" & i & ".pdf"
  i = i + 1
 Else
 End If

rs.MoveNext
Loop

Set rs = Nothing
Set db = Nothing

End Sub
```
OutputToメソッドの代わりに、引数にWhereconditionが設定できるOpenReportメソッドを使った場合は、思い通りにチェックしたレコードだけをレポート表示できています。

```ここに言語を入力
DoCmd.OutputTo acOutputReport, "R_請求書レポート", acFormatPDF, "C:パス\PDFファイル名" & i & ".pdf"
↓
↓変更
↓
DoCmd.OpenReport "R_請求書レポート", acViewReport, , "[請求書No] = " & rs.Fields("請求書No")
```
選択したレコードのみを、個別にPDF化するにはどのようにしたらよいのでしょうか。

Access レポートをPDF出力するOutputToメソッドにWhereCondition条件を設定したい

python seleniumでpdfを名前を付けて保存したいです。
以下のコードは「http://windows8.a-windows.com/images/PDF_sample.pdf」のPDFをdownloadフォルダに保存するだけのものです。ここからどうすれば名前を付けて保存できるかを教えていただきたいです。
```python
import time
from selenium import webdriver
from webdriver_manager.chrome import ChromeDriverManager
from selenium.webdriver.common.by import By
from pathlib import Path
driver = None

def destination():
    dldir_name = 'download'  # 保存先フォルダ名
    dldir_path = Path(dldir_name)
    dldir_path.mkdir(exist_ok=True)
    download_dir = str(dldir_path.resolve())
    options = webdriver.ChromeOptions()
    options.add_experimental_option("prefs", {
        "download.default_directory": download_dir,
        "plugins.always_open_pdf_externally": True})
    return options

def download():
    driver.get("http://windows8.a-windows.com/images/PDF_sample.pdf")#pdfを保存
    time.sleep(2)
    
if __name__ == "__main__":
    try:
        options = destination()
        driver = webdriver.Chrome(ChromeDriverManager(path="./").install(),options=options)
        download()
    except Exception as e:
        print()
    finally:
        driver.close()#ページを閉じる
```

python seleniumでpdfを名前を付けて保存したい

![イメージ説明](07321850c09ea916eb00b57f77a9841d.png)

### 前提・実現したいこと
複数の図を2ページにわたって出力したいです．
具体的には，縦7個×横3個に配列した合計21個の図を2ページにわたって出力したいと思っています．1ページ目に縦5個×横3個，2ページ目に残りの縦2個×横3個といった具合にページをまたいで出力させたいのです．個々の図をまとめて出力するのは\begin{minipage}を使えばできました．しかし，1ページ目に入りきらなかった図が途中で切れて，残りが出力されません．どうしたらいいでしょうか．

実際に載せる図（jpg）はお見せできないので，適当に"無題.jpg"という図を作ってタイプセットしてみました．やはり同じ問題が起きているので，出力されたpdfをスクショしたものをお見せします．

### 該当のソースコード
\begin{figure}[h]
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{1}
		\label{fig:1}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{2}
		\label{fig:2}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{3}
		\label{fig:3}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{4}
		\label{fig:4}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{5}
		\label{fig:5}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{6}
		\label{fig:6}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{7}
		\label{fig:7}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{8}
		\label{fig:8}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{9}
		\label{fig:9}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{10}
		\label{fig:10}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{11}
		\label{fig:11}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{12}
		\label{fig:12}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{13}
		\label{fig:13}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{14}
		\label{fig:14}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{15}
		\label{fig:15}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{16}
		\label{fig:16}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{17}
		\label{fig:17}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{18}
		\label{fig:18}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{19}
		\label{fig:19}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{20}
		\label{fig:20}
	\end{minipage}
 	\begin{minipage}[b]{0.33\linewidth}
 		\centering
		\includegraphics[scale=0.25,keepaspectratio]{無題}
		\subcaption{21}
		\label{fig:21}
	\end{minipage}
\end{figure}

### 試したこと

\end{minipage}と\begin{minipage}の間に\clearpageや\newpageなどを入力してみましたが，解決しませんでした．


### 補足情報（FW/ツールのバージョンなど）
OSはWindows．Texworksを使って編集しています．
何か足りない情報がありましたら補足いたしますので，ご指摘お願いいたします．

（以下追記）
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1179371061
ヤフー知恵袋に同じような内容の質問がありましたが，URLが古くて開けず，解決策も理解できませんでした．まだ自己解決できていません．

TeXで図を2ページにわたって出力させたい

### 実現したいこと

社報のPDFファイルに人事異動に関する一覧表があり、
これをExcelファイルに変換してmySQLなどのデータベースに取り込めるよう整理したいと思います。

### 前提

人事情報一覧は以下のようにまとめられています。

0. 表は「新部署・役職」「前部署・役職」「氏名」の3列で構成
0. 表には枠線がない
0. セルの幅は決められており、文字数が少なければ文字列の間隔が広く表示され、多ければ折り返して表示される

個人情報の為、元データをそのまま掲載することはできませんが、
元のPDFにおける表のイメージは以下の通りです。
PCやスマホなど閲覧している媒体によりレイアウトが崩れる可能性がありますがご容赦ください。

```PDF
　　　　　　　　本社営業部課長　　　　　
依　願　退　職　兼北海道支社営　田中太郎
　　　　　　　　業部課長代理　　　　　　
　　　　　　　　本社営業部主任　　　　　
本社営業部課長　兼北海道支社営　鈴木次郎
　　　　　　　　業　部　主　任　　　　　
　　　　　　　　本社営業部一般　　　　　
本社営業部主任　兼北海道支社営　山田三郎
　　　　　　　　業　部　一　般　　　　　
```

### 試したこと

以下の手順でPDFをExcelに変換しました。

0. Excelを起動し、「データ」⇒「データの取得」⇒「ファイルから」⇒「PDFから」の順にクリック
0. 変換したいPDFファイルを選択し、「インポート」をクリック
0. ナビゲーターが表示されたら、今回のPDFファイルは31ページまであるので「Page001」から「Page031」を選択し、「データの変換」をクリック
0. パワークエリエディターが表示されるので、「閉じて次に読み込む」をクリック
0. 読み込み先を選択する画面で、「新規ワークシート」を選び「読み込み」をクリック
0. 「Page001」～「Page031」および「追加1」のシートが作成

### 発生した問題

「追加1」のシートにPDFファイルの複数ページを結合した結果が出力されました。元のPDFのような3列の表を想定していたのですが、「文字間隔があり空白のあるセル」や「文字数が多く折り返し表示されるセル」があるためか、レイアウトが崩れて出力されてしまいます。

例えば、1列目の「依願退職」の部分で、空白文字含め１文字ずつ格納された列が7つ出来てしまいます。
また、2列目で折り返し表示の文字は、3行で出力されました。

レイアウトを崩さないようにExcelファイルが作成する方法はあるでしょうか。
原因は、OSやOfficeのバージョンによるものか、あるいはOfficeやOS側で何か設定し忘れているのでしょうか。
思い当たる方いらっしゃいましたらご意見いただけると幸いです。
どうしても解決できない場合は最終手段として、PDF化する前の元のExcelファイルをもらいますが、
その前にできるだけ手元にあるPDFファイルのみで解決したいと思います。
よろしくお願いいたします。

### 補足情報（FW/ツールのバージョンなど）

OS：64bit Windows10  Pro バージョン20H2（OSビルド 19042）

Office：Microsoft 365 バージョン 2306(ビルド 16529.20154)

Adobe Acrobat Reader ：バージョン2023.003.20215
