No.2ベストアンサー
- 回答日時:
定番の作業であり、定番のコードですので
きちんと理解してください。
Sub ボタン1_Click()
With Sheets("Sheet2")
GYOU = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & GYOU).Value = Date
.Range("B" & GYOU).Value = Range("A2").Value
.Range("C" & GYOU).Value = Range("B2").Value
.Range("D" & GYOU).Value = Range("C2").Value
End With
ActiveSheet.PrintPreview
End Sub
実際は
PrintPreview
を
PrintOut
でも良いです。
No.3
- 回答日時:
Workbook_BeforePrintイベントプロシャに書いちゃうっていう手もありますよ。
(すいません。プログラムはNo.2さんのパクリです)Workbook_BeforePrintイベントプロシャは、印刷の指示を行った時、その印刷の前に実行されます。
ただし、これには致命的欠点があります。これだとSheet2を印刷しても補完してしまいます。
やっぱり、No.2さんのが正解ですね。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim GYOU As Long
Cancel = True 'Trueを設定すると印刷動作はキャンセルされます。テストが終ったらこの行は削除してください。
With Sheets("Sheet2")
GYOU = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & GYOU).Value = Date
.Range("B" & GYOU).Value = Range("A2").Value
.Range("C" & GYOU).Value = Range("B2").Value
.Range("D" & GYOU).Value = Range("C2").Value
End With
End Sub
No.1
- 回答日時:
こんにちは!
一案です。
>Sheet1を印刷すると・・・
ではなく
Sheet1にコマンドボタン等を配置し、そのボタンをクリックすると
Sheet2にデータを保存 → 印刷
といった手順ではどうでしょうか?
Excel2010の場合で説明すると
コマンドボタンでなくオートシェイプを使う方法でやってみます。
① メニュー → 挿入 → 図形 → 好みの図形をSheet1上に配置
② 配置したオートシェイプ上で右クリック → マクロの登録 → 新規作成
③ 表示された画面に↓のコードをえコピー&ペースト
※ コードは「テキストボックス」を挿入した場合のコードで1行目と最終行は表示されていますので
2行目~最後から2行目までをコピー&ペーストします。
(オートシェイプによって1行目のボタンの名前が自動で変わります)
④ オートシェイプを印刷しない場合
オートシェイプ上で右クリック → 図形の書式設定 → プロパティ → 「オブジェクトを印刷する」のチェックを外しておきます。
Sub テキストボックス1_Click()
Dim wS As Worksheet
Set wS = Worksheets("Sheet2")
'▼A2~C2セルに未入力がなければ・・・
If WorksheetFunction.CountBlank(Range("A2:C2")) = 0 Then
'▼Sheet2のA列最終行の1行下のセル
With wS.Cells(Rows.Count, "A").End(xlUp).Offset(1)
'▼の値は「本日」
.Value = Date
'▼1列右側のセルはA2の値
.Offset(, 1) = Range("A2")
'▼2列右側の値はB2セルの値
.Offset(, 2) = Range("B2")
'▼3列右側の値はC2セルの値
.Offset(, 3) = Range("C2")
End With
'▼A2~C2セルのデータを消去
Range("A2:C2").ClearContents
'▼Sheet1を印刷プレビュー
ActiveSheet.PrintPreview '★
Else
MsgBox "未入力セルがあります"
End If
End Sub
※ 印刷プレビューでやめていますので、すぐに印刷する場合は「★」の行の
>ActiveSheet.PrintPreview '★
の行を
> ActiveSheet.PrintOut
に変更してください。
こんな感じではどうでしょうか?m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
彼女のことが好きすぎて彼女の...
-
勃起する時って痛いんですか? ...
-
イタリアから帰国する際、肉製...
-
精子が黄色?
-
風俗店へ行く前のご飯
-
白血球が多いとどんな心配があ...
-
これって喉仏ですか? 私は女性...
-
精子に血が・・・
-
精液の落とし方を教えてください
-
エクセル指定した範囲からラン...
-
甲状腺が腫れているが血液検査...
-
急に主人の性欲が強くなった
-
レインボーシックスシージをし...
-
ミルクティーが好きなのに気持...
-
テスターで断線を調べる方法教...
-
検便についてです。 便は取れた...
-
知能テストは、今。 義務教育課...
-
至急です。 今日アルバイト中に...
-
男性に質問 お尻の穴を見せた...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
彼女のことが好きすぎて彼女の...
-
白血球が多いとどんな心配があ...
-
勃起する時って痛いんですか? ...
-
精子が黄色?
-
検便についてです。 便は取れた...
-
これって喉仏ですか? 私は女性...
-
小数点以下を繰り上げたものを...
-
甲状腺が腫れているが血液検査...
-
精液の落とし方を教えてください
-
エクセル指定した範囲からラン...
-
EXCELで条件付き書式で空白セル...
-
2つの数値のうち、数値が小さい...
-
精子に血が・・・
-
エクセルのラベルの値(文字列...
-
イタリアから帰国する際、肉製...
-
ある範囲のセルから任意の値を...
-
リンク先のファイルを開かなく...
-
中出しをするとお腹が痛い・・・。
-
MIN関数で空白セルを無視したい...
おすすめ情報