- 締切済み
VBAを使った印刷を教えてください
複数のシートがあります。シート2:A2に挿入したデータを元にシート2フォーム全体を印刷したいです。シート２フォーム全体がA1:O41で1シートとなっており、データ入力領域がB17:N36で縦20個単位になっています、A2に20を入れた場合1シートが、40を入れた場合2シートが・・・印刷できるようにしたいです。
- オフィス系ソフト
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- imogasi
- ベストアンサー率27% (4737/17068)
関連するQ&A
- VBAで印刷したい。
シートが３枚あります。 ・回答フォーム ・採点 ・判定 この"回答フォーム"のシートにボタンを作成して クリックすると"採点"の印刷範囲を印刷したいのですが うまく行きません。 よろしくお願い致します。 Private Sub 採点を印刷_Click() Sheets("採点").Select Range("$A$1:$O$41").Select Selection.PrintOut copies:=1 Sheets("回答フォーム").Select End Sub
- ベストアンサー
- その他（プログラミング・開発）
- Excel VBA 「印刷中」メッセージを非表示にしたい
Excel・VBAで顧客ごとに手紙を印刷するために、 下記のような処理を記述しました。 ＜使用しているシート＞ sheet1 顧客リスト（100行ほど） sheet2 顧客に送付する手紙のフォーム ＜処理概要＞ １．sheet1を上からループさせながら1行ごとデータを 読み込む。 ２．１のデータをsheet2に書き出す。 ３．sheet2（フォーム）の印刷をおこなう。 ※２、３は１のループの中で1件ずつおこなう。 ３の処理で 「sheet2.printout」 という命令をかけているのですが、印刷の実行がかかるたびに「印刷中：n/nページを印刷中です」というメッセージが出てくるので、これを非表示にしたいのですが、何かいい方法はありませんか？ よろしくお願いします。
- 締切済み
- その他（プログラミング・開発）
- VBAを使ってマクロを作り印刷したいです。
VBA初心者です。皆様よろしくお願いいたします。 質問内容は、例えばsheet1に私が作ったFAXのsheetがあり、住所や 名前、電話番号、重複しないデータ等を指定したセルに出してFAX用紙の フォーマットを崩さないように印刷することです。 ユーザーフォームで、sheet1(私が作成したFAX用紙)に印刷ボタンを設置し、クリックすると 重複しないデータ(基礎となるデータがsheet2にはっております)データ記入欄の 表示がされ、基礎となるデータを管理Noだとすると、 印刷ボタンをクリック ↓ 上下にテキストボックスが2つ表示さる(000001)から(000006)管理Noです。 ※ただし、上のテキストボックスだけ入力しても印刷を可にしてほしいです。 ↓ テキストボックスに管理ナンバーを入力(管理NOは、連続した値とします) ↓ 発行部数の入力画面 ↓ 印刷される感じです。 発行部数が1部でしたら、管理No.0000001から000006までの間を各一部印刷です。 sheet2は、縦列は10行分A～J行 横の値は、複数行はいります。ここでは、横10行分とさせてください。 sheet2の値は、Aから、管理No（重複しない基礎のデータ)、名前、電話番号、FAX番号 住所、会社名、部署名、担当者、日付、担当営業とします。 縦の列は、上記のデータが入っているものとします。 sheet1に戻り例えば、管理NoをA3,名前をB5,電話番号をC6,FAX番号をD6 住所をD3,会社名はD4,部署名をD5、担当者がB5,日付がA6,担当営業がB5に いれるような事ができたらと思い質問させていただきました。 皆様、何卒ご教授お願いいたします。
- 締切済み
- Excel（エクセル）
- VBAで印刷設定
皆さん力を貸してください！ あるフォルダに複数エクセルファイルがあり、そのファイルにはまたまた複数シートがあります。 そのフォルダの全エクセルファイルの全シートに印刷設定をしたいと考えています。どのように作ったらいいでしょうか？設定は"次のページ数に合わせて印刷 横×1 縦×1"にしたいです。 ヒントでも回答でもいいので宜しくお願いいたします。
- ベストアンサー
- Visual Basic
- マクロで変化する印刷範囲を印刷したい
教えて下さい！エクセルでデーターが入っている 例えば Ａ1：Ｋ25とＡ27：Ｋ40 この領域には別のデーターが入ってます 列数は変更ありませんが行数はシートにより違います 毎回印刷範囲を指定しているので面倒くさいのが現状です どなたかワンプッシュで2つのデーターを入れてある領域を印刷出来るマクロを教えて下さい 上と下のデーターの領域は必ず１～3マスは行が空いてます 列は決まっているのでＡ1～Ａ●←最終行まで Ａ●下行の空白最後尾+1＝Ａ■ Ａ■～Ａ■最終行 この二つの領域印刷がしたいです マクロの記録でやってみましたが行が特定の為違うシートでは使えず 又、指定したシートも行を変更してしまうので印刷範囲指定した方が早いという結果に どなたかお力をお貸しください 宜しくお願いします
- 締切済み
- オフィス系ソフト
- Excel（VBA）で専用用紙に印刷
初歩的な質問で恐縮です。 今、ExcelのVBAである業務日報を作成しているのですが、印刷はある決まったフォーマットの用紙にデータだけを印字したいのです。 そうなると、座標を最小単位で指定する必要がでてくるわけですが、これをどうやればいいのかが分かりません。 ワークシートでセルのサイズを調整してやればいいのでしょうか？ あるいは、VBAで専用フォームを作ればいいのでしょうか？ 後者の場合だと座標指定は1/72インチ単位でかなりのズレが出てくると思うのですが、これ以下のサイズの指定はできるのでしょうか？ 以上、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- photoshopCS6_複数タブ一括印刷
photoshopCS6で、開いている複数画像を一括印刷する方法を教えて下さい。 音楽CDの歌詞カードをscanしたデータをA4用紙に縦3枚ずつ並べて印刷したいと思っています。 歌詞カードの画像が12枚あり、A4用紙4枚に収まるようにしたいです。 photoshopで画像を並べるにあたって、ファイル→自動処理→コンタクトシート２を選択して、並べました。 並んだのはいいのですが、出来上がったコンタクトシートが複数のタブ(コンタクトシート1-4)として表示されています。コンタクトシートを１枚ずつ印刷することはできるようなのですが、少し面倒なので複数のコンタクトシートをまとめて印刷したいと思っています。 このような複数タブをまとめて印刷する、またはpdfファイルにまとめる事はできるのでしょうか。やり方があれば教えて下さい。
- ベストアンサー
- 画像・動画・音楽編集
- VBAで教えてください
お世話になります。 現在、一つのワークブックに複数のワークシートがあり(20枚くらい）、それぞれのシートには、一つづつグラフが挿入されております。 これにVBAで新規シートを追加し、グラフを1枚のシートに並べたく思います。 できれば、縦5列、横4列に並べたいです。 コードを考えたのでですが、うまくいかず、どなたかご教授お願いします
- 締切済み
- その他（プログラミング・開発）
- Excel２００７ 印刷マクロ
マクロを使って縮小印刷したいのですが，うまくいきません。 データシートと印刷シートが分かれていて，印刷シートはA4縦です。 通常はこれで問題ないのですが，データ確認のために 縮小して印刷することがあります。 A4縦をA4横に印刷し，1枚目は左側，2枚目は右側。 3枚目は次の用紙の左側，4枚目は右側にしたいのです。 Zoom = 71とOrientation = xlLandscapeを使うと， 用紙は横になり，縮小されますが，用紙の中央に印刷されます。 印刷ボタン（マクロの登録）は2つ作り， 1つは通常用，もう1つは縮小用を割り当てようと思ってます。
- 締切済み
- その他MS Office製品
- 【VBA】データシートから4件ずつ印刷させたいです
VBAでうまくいかない事があり質問させていただきます。 ■やりたい事 ------------------------------------ ユーザーフォームに開始の番号と 終了の番号を手入力し、 印刷開始 ボタンを押すと 印刷フォームにデータを４個ずつ並べて印刷 それを終了の番号まで繰り返す。 ------------------------------------- A4-1枚目 1 2 3 4 A4-2枚目 5 6 7 8 A4-3枚目 9 10 11 12 A4-4枚目 13 14 15 16 ------------------------------------- ■状況 添付画像確認ください ------------------------------------ １データシート（16アイテム） ２印刷フォーマット（A41枚に4アイテムづつ表示） ３印刷結果(希望) ------------------------------------ ■コード ------------------------------------- Private Sub CB1_Click() Dim NO As Integer Dim a As Integer Dim n As Integer 'ユーザーフォームの開始番号です a = TB1.Value ’ユーザーフォームの終了番号です。 n = TB2.Value For NO = a To n Sheets("sheet1").Range("c24").Value = NO Sheets("sheet1").Range("D24").Value = NO + 1 Sheets("sheet1").Range("E24").Value = NO + 2 Sheets("sheet1").Range("F24").Value = NO + 3 Sheets("sheet1").PrintOut Next NO Unload Me End Sub ------------------------------------- ■上記コードの結果 ------------------------------------- A4-1枚目 1 2 3 4 A4-2枚目 2 3 4 5 A4-3枚目 3 4 5 6 A4-4枚目 4 5 6 7 ------------------------------------- ■考えられる原因 ------------------------------------- VBAのfor に対して Next NO を指定しているので、４番号ごとの出力が出来ない。 できれば NEXT NO +3 のように出来れば思い通りの結果が得られるのではないかと考えていますが、 構文エラーとなります。
- ベストアンサー
- Excel（エクセル）
