Печатайте на принтер Excel
Application.ActivePrinter = "MyPrinter"
или
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="MyPrinter"
При этом активный принтер компьютера менять не надо. =======================================================
ActiveSheet.PrintOut ActivePrinter:="HP LaserJet 5L"
Range("A1:C10").PrintOut
ActivePrinter:="HP LaserJet 5L (LPT1:)"
ThisWorkbook.Worksheets(1).Range("B2:C10").PrintOut
Предполагается, что распечатать нужно только ячейки и графические об'екты диапазона B2:C10 первого рабочего листа текущей рабочей книги.
If Worksheets("киоски").Range("F4").Value <> "" Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate:=True
Else
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1, Collate:=True
If Worksheets("киоски").Range("F4").Value <> "" and
Worksheets("киоски").Range("E4").Value <> "" Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate:=True
Else
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1, Collate:=True
