常連

ローカルに保存した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ページにわたって出力させたい

### やりたいこと
Windows10版のjupyter notebook上で日本語ドキュメントを`.pdf`として保存したい。
### 問題
**Windows10**環境で**jupyter notebook**でマークダウン記法を用いて技術ノートをとっております。ドキュメントを`.pdf`として保存しようとしましたが、サーバーエラーが発生してpdf出力できません。**Tex**関連は全くのド素人なので環境の変更とかもあまりよく理解しないまま取り敢えずで対処しています。**Tex**と**Jupyter**、或いははどちらかの環境に詳しい方がいらっしゃれば、助言をお願いいたします。

### 試したことその1
発生したエラーは"**xelatex**が入ってないよ、インストールしてね"といった旨のものでしたので
> http://kashikoku.instafr.com/entry/jupyter-ipython-output-as-pdf

を参考にして**MikTex**をインストールしました。
しかし、インストール後、手順通りに`Download as pdf(via LaTex)`を選択したところ、以下の様なエラーが発生しました。
![内部サーバーエラー](781e5277f1e79bcc077cb8bf87fb64b5.png)

### 試したことその2
「んんぐやじいいいいいい！！！！！！」
となりまして更に調査を続けると
> https://cartman0.hatenablog.com/entry/2016/03/29/131903#sec-warningLatex-japanese

という文献が見つかりました。テンプレートが日本語対応でない、ということでしたので、
```
% Default to the notebook output style
((* if not cell_style is defined *))
    ((* set cell_style = 'style_ipython.tplx' *))
((* endif *))

% Inherit from the specified cell style.
((* extends cell_style *))

%===============================================================================
% Latex Article
%===============================================================================

((* block docclass *))
\documentclass{jsarticle}
((* endblock docclass *))
```
というコードを`jsarticle.tplx`として保存し、コンソールから**nbconvert**コマンドを実行してみました。
![イメージ説明](87acf8d21d7bc1092598e9c7326ce410.png)
やったぜ。`.tex`ファイルが出力されました。
「直でpdfに変換できるわけではないのか...」
とモヤモヤ感を残しつつも、**.texファイル**を**TexWorks**でコンパイルしてみました。コンパイル環境は、参考記事で頻出した**pdflatex**と**xelatex**

![エラーメッセージ2](4f58cd325acc15140a59f31921b25770.png)
`jsarticle`関連のファイルフォーマットが違うようです。
**TeX**内部の弄り方を全く知りませんので現状の**TeXWorks**内のすべての環境でコンパイルしましたが全滅。全然わからん！！！

### 試したことその3
**tex**ファイル経由だと文献の手順通りに行ってもコンパイルエラーが発生するので、**nbconvert**のデフォルト設定である`article.tplx`ファイルを上記の`jsarticle.tplx`ファイルのソースコードに書き換え、再び**jupyter**からのダウンロードを試みました。
![jupyter2](7505824436c21a0e68573d9b4550c503.png)

発生しているエラーは変わらず、**jsarticle**周りの
フォーマットエラーの様です。

**TeX**の知識の乏しい僕にはもうお手上げです。皆様の知恵をお貸しください。