いつもありがとうございます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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルファイルのデータ転記について
Visual Basic(VBA)
-
Excel VBA マクロ シート名を変えずにA列にあるセル名の名前でファイルの分割をしたいです
Visual Basic(VBA)
-
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
-
4
ExcelのVBAコードを教えて頂けますでしょうか。 例シート2つがあります。 シート1は元データ
Excel(エクセル)
-
5
エクセルのcountifのワイルドカードについて
Excel(エクセル)
-
6
VBAのことで質問です
Visual Basic(VBA)
-
7
Excelセルに入力された文字の色を変える方法を教えてください
Visual Basic(VBA)
-
8
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
9
ファイル名の日付について教えて頂けますかExcel
Visual Basic(VBA)
-
10
Cellsのコードが打てません
Visual Basic(VBA)
-
11
これなにがちがうんですか??
C言語・C++・C#
-
12
近似した文字列を置換するエクセル関数またはVBAについて
Visual Basic(VBA)
-
13
VBA
Visual Basic(VBA)
-
14
エクセルで相対パスの書き方を教えてください
Excel(エクセル)
-
15
エクセルの「パスの定義」の仕方について教えてください
Excel(エクセル)
-
16
エクセルVBAでデータ転記
Visual Basic(VBA)
-
17
【VBA】カーソルのある行の1行目のセルをコピペし,最後にそのセルに戻る方法
Visual Basic(VBA)
-
18
引数に数値、文字列の混在
Visual Basic(VBA)
-
19
VBA実行後に元のセルに戻りたい
Visual Basic(VBA)
-
20
VBAで特定のシート以外のシート名を変更したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
printfとputcharの違いは
-
4Kの外部モニターに出力すると...
-
プログラムについての質問です...
-
cout と cerrの違い
-
コンセントの電力は入力と出力...
-
Windows Formアプリからコンソ...
-
ACCESS クエリ→フォーム...
-
CStringとCByteArrayの変換
-
テキストファイルから特定の文...
-
バッチファイル フォルダサイ...
-
printfの書式%.*s
-
CRC16計算について
-
エクセルVBAからOUTLOOKの操作...
-
フローチャートの書き方について
-
CPUの温度を出力するプログラム...
-
PCの設定「サウンド」の「出力...
-
Arduinoのスケッチでエラーがで...
-
ActiveReportsでPDFを出力した...
-
標準出力の上書き
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
printfとputcharの違いは
-
VBA レジストリの値の読み方に...
-
プログラムについての質問です...
-
MMDでavi出力が出来ない
-
cout と cerrの違い
-
詳しくないので、どなたかお教...
-
COBOLのMOVEで桁数が異なる場合
-
ACCESS クエリ→フォーム...
-
VBAでテキスト出力時のスペース...
-
OBS配信すると、マイクが途切れ...
-
PS5をMacBookProに出力したいの...
-
コンセントの電力は入力と出力...
-
アクセスでエクセルに出力する...
-
printfの書式%.*s
-
Windows Formアプリからコンソ...
-
coutで出力した文字を消去する...
-
VBAで有効数字の設定
-
VBAのExecメソッドで画面を非表...
おすすめ情報