OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
締切り
済み

エクセルの印刷について

  • 暇なときにでも
  • 質問No.146278
  • 閲覧数50
  • ありがとう数3
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 85% (6/7)

MS office97を使用しています。

エクセルの印刷について 教えて下さい。
「シート2」表を作成しています。
「シート1」の「A1」の入力されている数字が 1 であれば
「シート2」の表を1部印刷
「シート1」の「A1」の入力されている数字が 2 であれば
「シート2」の表を2部印刷
と云うように、指定された通りに 印字出来る マクロなどは
組めないのでしょうか????
出来るのであれば 教えて下さい。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全1件)

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

こんな感じでしょうか。A1に入力された部数、Sheet2を印刷します。 『シート1、シート2』がシート名なら『Sheet1、Sheet2』を変えて下さい。(Excel97で確認) 標準モジュールに貼り付けます。 Sub Insatu()   Dim maisuu As Integer '枚数   maisuu = Worksheets("Sheet1" ...続きを読む
こんな感じでしょうか。A1に入力された部数、Sheet2を印刷します。
『シート1、シート2』がシート名なら『Sheet1、Sheet2』を変えて下さい。(Excel97で確認)

標準モジュールに貼り付けます。

Sub Insatu()
  Dim maisuu As Integer '枚数

  maisuu = Worksheets("Sheet1").Range("A1")
  If maisuu > 0 Then
    Worksheets("Sheet2").PrintOut Copies:=maisuu
  Else
    MsgBox "枚数を指定して下さい。"
  End If
End Sub

このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ