2016年5月24日火曜日

エクセルだけで差し込み印刷(3-3)

さて、bookをつくるから、印刷に変更

3-1) のbookを作る機能を印刷に変更するだけだと推測はしていますが
印刷コマンドがわからん。

早速 エクセルマクロ 印刷 で 検索しました。

.PrintOut
これだけで OKのような、、

で作ったのがしたのマクロ 一発で動きました。

きもちいいー

エクセルファイルはここにあります



前へ 次へ

---

Sub book作成33()

'画面のちらつきを防止する
Application.ScreenUpdating = False

'リストワークシートを選択する
Worksheets("リスト").Activate

'リストワークシートのセルA6をアクティブセルにする
Range("A6").Select
  

    'ユニークファイル番号の設定、ブックを作成するときの番号を1から順につけるために必要
    uFile = 0
    
    ' Save Directory の パス設定
    パス = ActiveWorkbook.Path ' カレントパスの取得
    SaveDir = パス & "\" & Format(Date, "yyyymmdd")
    ' カレントパス,日付のフォルダがある場合はフォルダ削除して再度作成
    If Dir(SaveDir, vbDirectory) <> "" Then
        Dim FSO As Object
         Set FSO = CreateObject("Scripting.FileSystemObject")
        FSO.DeleteFolder SaveDir
        Set FSO = Nothing
        MkDir SaveDir
    Else
        MkDir SaveDir
    End If
   
   'ループの開始
   Do
   'アクティブセルを1つ下に移動する A7になる
   ActiveCell.Offset(1, 0).Select

   '空欄であれば、プログラムを終了する
   'Trim関数は前後のスペースを消去する
   If Trim(ActiveCell.Value) = "" Then
      Exit Do
   End If

   '非表示セルは対象としない
   If ActiveCell.EntireRow.Hidden = False Then

      'Format1 シートにリストの内容を繁栄される
       With Worksheets("Format1")

       'レコードの先頭セルを選択
       'Format1 D10に リストの A7の内容を移動
         .Range("D10").Value = ActiveCell.Offset(0, 0).Value
        'Format1 D12に リストのA7から指定セルを移動するために 上下方向0, 右方向に1移動
         .Range("D12").Value = ActiveCell.Offset(0, 1).Value
         .Range("F12").Value = ActiveCell.Offset(0, 2).Value
         
          .PrintOut
          Sheets("リスト").Select  ' リストシートをアクティブにする
          End With

      End If

   'ループの終了
   Loop

End Sub

0 件のコメント:

コメントを投稿

注目の投稿

なぜ海外船籍クルーズ船は韓国に寄港するのか

クルーズは楽しいし、高齢になっても楽しめる、しかし日本人を招かねざる客とする国に 自分の金を落としたくはない。 海外船籍のクルーズ船は日本船籍のクルーズよりも安価です。 しかし、なぜか日本国内を周らず、釜山とか、ロシアの知らないところに寄港します。 なんでか調べてみ...