No.2ベストアンサー
- 回答日時:
Excelをお持ちならばWordをお持ちではないでしょうか?Wordの「差込印刷」を使えばお望みの形になるかと思います。
http://www.miyazaki-cci.or.jp/nichinan/pc/case9. …
もしくは、Excel用のツールもあるようですが、未確認です。
http://www.vector.co.jp/soft/win95/writing/se340 …
あとは、自力でマクロ(VBA)組むか...
ありがとうございます!
差込印刷は葉書等の宛名印刷のためのものだと思い込んでおり、
頭が回りませんでした。
レイアウトを自由に変えられるのですね。
今からやってみます。
No.4
- 回答日時:
こんばんは。
>EXCELで1行の内容を1枚の紙に印刷したい
タイトルはそうなっていますが、説明のほうは、2行のように見えますが?
マクロですと、以下のようにしたらよいかと思います。
印刷するシートのシートモジュールか、標準モジュールに登録してください。
標準モジュールは、Alt + F11 で、開いて、挿入-標準モジュールで以下を貼り付ける
後は、Alt +F11 で、元に戻って、Alt + F8 で、以下のマクロ名を選択します。
'一行-1ページ
Sub PrintOneLine()
Dim r As Range, i As Long
'もしも A1 からの範囲でない場合は、
'範囲の左上隅のセルをA1の代わりに入れる
Set r = Range("A1").CurrentRegion
With ActiveSheet
For i = 1 To r.Rows.Count
.PageSetup.PrintArea = r.Rows(i).Address
'数が多いときは、ウェイトを入れたほうがよい。
If i Mod 10 = 0 Then
'10ページごとに、3秒待ち
Application.Wait Now + TimeValue("00:00:03")
End If
.PrintOut From:=1, To:=1
Next i
End With
End Sub
'-----------------------------------------------------
'二行-1ページ
Sub PrintDoubleLine()
Dim r As Range, i As Long
Set r = Range("A1").CurrentRegion
With ActiveSheet
For i = 1 To r.Rows.Count Step 2
.PageSetup.PrintArea = r.Rows(i & ":" & i + 1).Address
'数が多いときは、ウェイトを入れたほうがよい。
If i Mod 20 = 0 Then
Application.Wait Now +TimeValue("00:00:03")
End If
.PrintOut From:=1, To:=1
Next i
End With
End Sub
回答ありがとうございます。
私の書き方が足らなかったです。
1行というのはもとのEXCELファイルの1行のことで、
印刷するのは通常の文書形式で数行に渡ったものにしたいという趣旨でした。
本当にすみません。
マクロは使ったことがないのですが、
これを機会に勉強したいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
字面がカッコいい英単語
あなたが思う「字面がカッコいい英単語」を教えてください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルで一行毎、一枚づつ自動でプリントアウトしたいです。
Excel(エクセル)
-
Excelで全ての行単位で改ページ
Word(ワード)
-
EXCELで一覧表のデータを個別に印刷したい
Excel(エクセル)
-
-
4
エクセルで長い行を1枚に印刷したい
Excel(エクセル)
-
5
1行を1シートずつに書き出すには
Excel(エクセル)
-
6
エクセルで複数行に一度に改ページを挿入する方法
Excel(エクセル)
-
7
Excelで12行ずつ印刷するには
Excel(エクセル)
-
8
エクセルの改ページを行ごとに自動挿入するには?
Excel(エクセル)
-
9
差し込み後、元データを変更し 差し込み先に反映させるには?
Access(アクセス)
-
10
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのグレーの部分を戻したい
-
ページが増える
-
EXCEL改ページプレビューのペー...
-
YMM4 で MOV ファイルが読み込...
-
エクセルの縦の幅だけ拡大したい。
-
Excelで特定の文字・記号のとこ...
-
エクセルのマクロで印刷プレビ...
-
エクセルで点線を引き、印刷す...
-
エクセル上に貼り付けた画像が...
-
エクセルでA4 2枚をA3 1枚で印...
-
EXCELで1行の内容を1枚の紙に印...
-
Mac プレビューでクリップボー...
-
エクセルのA3横一枚のデータをA...
-
プレビューが途中で切れ、プリ...
-
エクセルで、大きく灰色に書か...
-
EXCEL-VBAで印刷時のページ番号...
-
エクセル2010:貼り付け時のプ...
-
Excelの改ページ印刷についての...
-
ExcelVBA 改ページの横破線を消...
-
エクセルでの印刷時に変な線や...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのグレーの部分を戻したい
-
EXCEL改ページプレビューのペー...
-
ページが増える
-
エクセルの縦の幅だけ拡大したい。
-
YMM4 で MOV ファイルが読み込...
-
プリンターが突然1部しか印刷...
-
エクセルでA4 2枚をA3 1枚で印...
-
エクセルのマクロで印刷プレビ...
-
エクセルのA3横一枚のデータをA...
-
EXCELで1行の内容を1枚の紙に印...
-
エクセルで点線を引き、印刷す...
-
Excelの改ページ印刷についての...
-
エクセル上に貼り付けた画像が...
-
改ページの2ページ目の作り方
-
Excelで縦を拡大、横を縮小する...
-
Excelで特定の文字・記号のとこ...
-
エクセル2007で印刷プレビュー ...
-
エクセルで印刷、0.5が1になる。
-
印刷範囲がこまぎれになる
-
ExcelVBA 改ページの横破線を消...
おすすめ情報