আমার কাছে একাধিক ফাইল অটো প্রিন্ট করার জন্য একটি কোড আছে তবে এই কোডটি ফাইলের প্রতিটি শীট মুদ্রণ করে
এখন আমার প্রতিটি ফাইলের 44 ফাইল রয়েছে 3 শিট [শীট 1, শীট 2, শীট 3] আমি শুধুমাত্র পত্রকটি মুদ্রণ করতে চাই
Sub auto_print()
'
'
Dim i As Integer, j As Integer
Dim varFile As Variant
Dim inFile As Integer
Dim OPENFILE
Dim currFile
Dim N
'
Application.ScreenUpdating = False
On Error GoTo 100
'
currFile = ActiveWorkbook.Name
varFile = _
Application.GetOpenFilename(FileFilter:="Microsoft Excel file, *.xls", MultiSelect:=True)
If (IsArray(varFile)) Then
For intfile = 1 To UBound(varFile)
Workbooks.OpenText Filename:=varFile(intfile)
OPENFILE = ActiveWorkbook.Name
'
For N = 1 To ActiveWorkbook.Sheets.Count
Sheets(N).Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next N
Workbooks(OPENFILE).Close
Next intfile
Else
MsgBox "You did not select any file.", vbOKOnly + vbInformation
End If
100 End Sub