Hi Friends,
I am using below code for printing specific sheets. But in this VBA Printer is default. Can you please edit this code, so that I can choose printer.
Thank you friends.![]()
Option Explicit Sub PrintWhitepages() Dim LC As String Dim DP As String Dim DA As String If Sheets("DATA - SALES").Range("J8").Text = "LC" Then ThisWorkbook.Sheets("INV").PrintOut Copies:=1 ThisWorkbook.Sheets("PL").PrintOut Copies:=1 ThisWorkbook.Sheets("COO").PrintOut Copies:=1 ThisWorkbook.Sheets("COWt").PrintOut Copies:=1 ThisWorkbook.Sheets("COW").PrintOut Copies:=1 ThisWorkbook.Sheets("Bene Cert").PrintOut Copies:=1 ThisWorkbook.Sheets("Analysis Cert").PrintOut Copies:=1 ThisWorkbook.Sheets("Test Cert").PrintOut Copies:=1 End If Call setCellFocus End Sub Sub setCellFocus() Dim sht As Worksheet, csheet As Worksheet Application.ScreenUpdating = False Set csheet = Sheets("DATA - SALES") csheet.Activate Range("A1").Select Application.ScreenUpdating = True End Sub
Bookmarks