How Can I select specific printer in existing VBA Code

[rajeshn_in]

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.

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

Thank you friends.