Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
224 / 13619 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【81317】印刷について kanikaani 20/6/2(火) 20:33 質問[未読]
【81319】Re:印刷について マナ 20/6/2(火) 21:19 発言[未読]
【81320】Re:印刷について kanikaani 20/6/2(火) 22:21 質問[未読]
【81321】Re:印刷について マナ 20/6/2(火) 22:27 発言[未読]
【81322】Re:印刷について kanikaani 20/6/3(水) 11:18 お礼[未読]
【81319】Re:印刷について
発言  マナ  - 20/6/2(火) 21:19 -
引用なし
パスワード
   ▼kanikaani さん：

動作確認用に、ばっさり削除しました。
これで、印刷されますか。

Sub 見積書作成()
　　Dim lst As Worksheet, tmp As Worksheet, sh As Worksheet
　　
　　'リストのあるシート
　　Set lst = Sheets("データ")
　　'請求書テンプレート
　　Set tmp = Sheets("見積書")
　　
　　tmp.Copy After:=Sheets(Sheets.Count)
　　Set sh = ActiveSheet
　
　　sh.Range("D1").Value = lst.Range("a2").Value
　　
　　sh.PrintOut

　End Sub
【81320】Re:印刷について
質問  kanikaani  - 20/6/2(火) 22:21 -
引用なし
パスワード
   ▼マナ さん：

ご丁寧にありがとうございます
なんとかできそうですが
印刷する際に見積書のひな形まで印刷されてしまうようです
自分で直したらバグがでてしまいました．．．
【81321】Re:印刷について
発言  マナ  - 20/6/2(火) 22:27 -
引用なし
パスワード
   ▼kanikaani さん：

>印刷する際に見積書のひな形まで印刷されてしまうようです

Sub 見積書作成()
Dim lst As Worksheet, tmp As Worksheet, sh As Worksheet
Dim i As Long
'リストのあるシート
Set lst = Sheets("データ")
'請求書テンプレート
Set tmp = Sheets("見積書")

ActiveSheet.PrintOut Preview:=True　　＜ーーこの行が必要ない

．．
【81322】Re:印刷について
お礼  kanikaani  - 20/6/3(水) 11:18 -
引用なし
パスワード
   ▼マナ さん：
無事にできました！
本当に本当にありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
224 / 13619 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free