hogemoge diary ハナレテモトモダチダヨ

_ 消費増税

来ちゃったね。

_ 今宮公園の桜

満開。近くの幼稚園児が見に来てた。

_ Excelで降ってくる某カルテを両面印刷したいけど、普通に全シート選択しての印刷だと異なる事業所が裏表に印刷されて悲しい人向けマクロ

プリンターは事前に両面印刷になってる前提の手抜き。年一だからいじらない 。

Sub いい感じに印刷()
'カルテの印刷普通に全部選択で両面印刷だと違う事業所が裏表で出力されて悲しい人用
    Dim i As Integer
    For i = 1 To Worksheets.Count
   'For i = 1 To 3
     Worksheets(i).Select
      'いきなり印刷が始まったら困る人向け
      'ActiveWindow.SelectedSheets.PrintPreview
      ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Next i
End Sub

_ 使いたいときは落ちてる

○ご利用できないサービス 確定申告書等作成コーナー

（サービス再開までの間は、国税庁ホームページ様式を印刷していただき、手書きにて作成して提出いただきますようお願いいたします。

[「e-Taxソフト（WEB版）」、「確定申告書等作成コーナー」、「NISA（日本版ISA）コーナー」　サービス停止のお知らせ（重要）平成26年4月25日より引用]