Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1146 / 76807

←次へ　｜　前へ→


	【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

1 hits

▼

【81317】印刷について kanikaani 20/6/2(火) 20:33