いつもありがとうございますm(__)m
学生の成績個票をVBAを用いて、印刷しています。(以下のコードです)
Sub 正方形長方形1_Click()
a = Range("M2")
b = Range("O2")
For i = a To b
Range("B2") = i
Worksheets("印刷用1").PrintOut
Next i
End Sub
-------------------------------------------------------------------------
今度は、学生番号〇番~〇番の成績個票を、pdf出力したいのですが、どのようなコードをかけばいいのでしょうか?
ちなみに、ひとつのファイルに出力したいです。
お詳しい方、宜しくお願い致します。

No.2ベストアンサー
- 回答日時:
こんにちは
>pdf出力したいのですが、どのようなコードをかけばいいのでしょうか?
既回答にあるように
・PDFフォーマットを指定して出力すれば良いです。
・その際にはファイル名や保存先を指定しておく必要があります。
ただし、1票ずつ出力していると(当然ですが)その数だけのpdfファイルができます。
>ちなみに、ひとつのファイルに出力したいです。
一つのファイルにまとめるには以下のような方法が考えられます。
・出力された複数のpdfファイルを、手操作編集で一つにまとめる。
・エクセル上で(VBA)で編集して、1ファイルにして出力する。
レイアウトもページ数も不明なので、後者について要領のみ説明しておきます。
1ファイルにするには、出力を1度にまとめてする必要があるので、一時的に内容を1ブック、あるいは1シートにまとめる必要があります。
以下は、例として1シートにまとめる場合について説明。
1)印刷用シートを一時的に作成しておきます。
(セルの書式設定が必要なら、設定しておきます)
2)各個票を作成したら、直接出力するのではなく、印刷用シートに
「値をペースト」で順にコピーしてゆきます。
改ページなどの調整が必要なら、改ページ設定を行います。
3)全部の個票をまとめたら、印刷用シート全体をまとめて出力します。
4)出力終了後、印刷用シートを削除
以上で、VBAから直接1ファイルにまとめて出力することが可能ですが、前提として、1シートに全ての出力データがが納まるという仮定をしています。
(納まらないような量なら、複数シートにするか別ブックにしてしまうか)
また、個票のサイズによっては、印刷設定(=余白など)も調整する必要があるかも知れません。
No.3
- 回答日時:
①印刷対象となるセルの範囲は、1ページにおさまりますか。
おさまれば、それを1シート内に複数作成し、1つのPDFにまとめることは
可能です。
②印刷対象となるセルの範囲は、どのようになっていますか。
例 1行目~17行目でA列からG列までの場合、A1:G17のように回答してください。
No.1
- 回答日時:
Sub PDF出力()
Dim 学生番号開始 As Integer
Dim 学生番号終了 As Integer
Dim i As Integer
学生番号開始 = Range("M2").Value
学生番号終了 = Range("O2").Value
' PDF出力のためのフォルダーを指定してください
ChDir "C:\Users\YourUsername\Documents"
For i = 学生番号開始 To 学生番号終了
Range("B2").Value = i
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"学生番号_" & i & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next i
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Excel(エクセル) 【マクロ】ファイル名の日付によって、保管するフォルダを、自動選択したい 4 2023/08/16 11:24
- Visual Basic(VBA) wordのマクロで思うように行きません(ファイル削除ができない) 3 2023/09/12 08:34
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) VBAに関して 2 2023/11/09 20:57
- Visual Basic(VBA) 【VBA】マクロの入ったファイルと同じフォルダに,出力したファイルを保存するコードについて 3 2023/09/28 13:36
- Visual Basic(VBA) ExcelVBAで質問です。離れた二次元配列を一つにしたい 4 2022/07/26 19:06
このQ&Aを見た人はこんなQ&Aも見ています
-


エクセルマクロで差し込みしたものを1つのファイルでPDF化したいです
その他(Microsoft Office)
-


【ExcelVBA】値を変更しながら連続でPDFを作成し,ファイル名を自動で付して出力するコード
Visual Basic(VBA)
-


【VBA】値を変更しながら連続でPDFを作成し,それらに印刷設定をした状態で結合するコード
Visual Basic(VBA)
-
-
4

【ExcelVBA】値を変更しながら連続でPDFを作成し,それらを結合した状態で出力するコード
Visual Basic(VBA)
-
5

エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
6

【VBA】PDF出力に任意のファイル名前を付ける方法
Excel(エクセル)
-
7

Excel1ブック上で差し込み印刷 印刷ジョブを1つにまとめたい
Excel(エクセル)
-
8

EXCEL ページを指定してPDF出力するVBAを教えてください。
PDF
-
9

エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
10

Excelの選択範囲を特定のセル値をファイル名にしてPDFで保存する
Excel(エクセル)
-
11

【マクロ】フォルダ内にあるPDFを合体させるには?有料版adobe必要?
Excel(エクセル)
-
12

EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
13

【Excel】指定したセルの名前でPDFを保存する【VBA】
Visual Basic(VBA)
-
14

空白行になるまでループし、印刷するマクロを教えて下さい
その他(コンピューター・テクノロジー)
-
15

オートフィルタのリストを順番に印刷できるマクロ
Windows Vista・XP
-
16

vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
17

複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
18

VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
19

Acrobat参照設定
Visual Basic(VBA)
-
20

特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
TV出力ポートをOFFにすれば良い...
-
真空管 300 B の前段について
-
プログラムについての質問です...
-
FLEXSOLARパネルからAmazonで買...
-
Accessのテーブルからcsv出力す...
-
海外の110Vの電気製品を日本で...
-
PD充電器について
-
スマホ充電器購入にあたり
-
cout と cerrの違い
-
標準出力の上書き
-
中国の電子レンジの火力は何ワ...
-
【PowerPoint VBAの高速化】
-
makeで文字化けする。migwのmak...
-
printfとputcharの違いは
-
C言語でタイピングゲーム作成
-
CRC16計算について
-
C#でアクセス権限の取得方法が...
-
【VBA】PDFを2in1で出力したいです
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
プログラムについての質問です...
-
PD充電器について
-
cout と cerrの違い
-
スマホ充電器購入にあたり
-
Accessのテーブルからcsv出力す...
-
MMDでavi出力が出来ない
-
printfとputcharの違いは
-
VBAのExecメソッドで画面を非表...
-
TV出力ポートをOFFにすれば良い...
-
COBOLのMOVEで桁数が異なる場合
-
VBAでテキスト出力時のスペース...
-
ACCESS クエリ→フォーム...
-
coutで出力した文字を消去する...
-
4種類(A4縦、A4横、A3縦、A3横)のヘ...
-
Windows Formアプリからコンソ...
-
コンセントの電力は入力と出力...
-
C#でアクセス権限の取得方法が...
-
【VBA】PDFを2in1で出力したいです
おすすめ情報


















