셀에 지정된 파일 경로를 읽고 인쇄하는 방법

TL;DR(3행)

셀에 지정된 Excel 파일의 경로를 읽고 인쇄 할 수 있습니다.

이 예에서는 세 개의 파일 경로를 읽고 인쇄 대화 상자를 표시합니다.

인쇄 다이얼로그를 내지 않고 연속으로 인쇄하는 방법도 소개

전제 조건

바탕 화면에 Test 폴더가 있습니다

Test 폴더 안에 BookA.xlsx, Book1.xlsx, Book2.xlsx, Book3.xlsx가 존재한다.

Book1.xlsx ~ Book3.xlsx는 무엇이 쓰여져도 우선 좋다

BookA.xlsx는 다음과 같이 Book1.xlsx ~ Book3.xlsx의 파일 경로를 설명합니다.

코드

BookA에서 VBE를 열고 다음 코드를 붙여 넣고 실행
A1~A3에 쓰여진 패스의 Excel 파일을 인쇄할 수 있다

' メインプロシージャ
Sub Main()
  ' 変数の定義
  Dim filePath As String

  ' A1からA3のセルを参照
  For Each cell In Range("A1:A3")
    ' ファイルパスの取得
    filePath = cell.Value
    ' 印刷プロシージャの読み出し
    Call PrintBook(filePath)
  Next
End Sub


' 印刷用プロシージャ
Sub PrintBook(ByVal filePath As String, Optional ByVal sheetName As String = "")
  ' ブックを操作するために用意
  Dim wb As Workbook
  ' filePathで指定されたブックを開く
  Set wb = Workbooks.Open(Filename:=filePath, ReadOnly:=True)

  ' シート名が指定されていない場合，読み込んだブックから取得
  If sheetName <> "" Then
    wb.Sheets(sheetName).Select
  End If

  ' 印刷ダイアログを開く
  ' SendKeys "{ENTER}" '一気に印刷までしたい時はコメントを外す
  Application.Dialogs(xlDialogPrint).Show

  ' ファイルを閉じる
  wb.Close False
  ' wbの初期化
  Set wb = Nothing
End Sub

단번에 인쇄하는 경우

위 코드의 해당 주석을 제거합니다.

' 印刷ダイアログを開く
SendKeys "{ENTER}" '一気に印刷までしたい時はコメントを外す
Application.Dialogs(xlDialogPrint).Show

SendKeys에서 Enter를 지정하면,
표시된 인쇄 대화 상자에서 Enter 키를 누른 상태로 즉시 인쇄가 시작됩니다.

참고 사이트