распечатка

[nolte]

Пришел к новой проблеме:
Хотел что бы лист в конце отправлялся на распечатку и затем на факс. Загвоздка в том что стоит мультипринтер, в нем же и факс.

Workbooks("test").Sheets("azm").Activate ' Определил к-во листов для распеч
    If Lastx + 4 <47 Then
        KvoStr = 1
        Else
        KvoStr = 2
    End If
код с макрорекордера
'********************************************
    'Application.ActivePrinter = "Kyocera FS-1128MFP NW-FAX (Ne04:)"
  '  ExecuteExcel4Macro _
    '    "PRINT(2,1,KvoStr,1,,FALSE,,,,,,2,""Kyocera FS-1128MFP NW-FAX (Ne04:)"",,TRUE,,FALSE)"
   ' Application.ActivePrinter = "Kyocera YAZ1128MFP (Ne03:)"
  '  ExecuteExcel4Macro _
  '      "PRINT(2,1,KvoStr,1,,,,,,,,2,""Kyocera YAZ1128MFP (Ne03:)"",,TRUE,,FALSE)"
'**************************************************

это то что я накопал

Sheets("azm").PrintOut From:=1, To:=KvoStr, Copies:=1, _ ActivePrinter:="Kyosera YAZ1128MFP (Ne03:)"
Application.Wait Now + TimeSerial(0, 0, 30)
Sheets("azm").PrintOut From:=1, To:=KvoStr, Copies:=1, _ ActivePrinter:="Kyosera FS-1128MFP NW-FAX (Ne04:)"

в списке принтеров принтер называется - Kyosera YAZ1128MFP
и факс - Kyosera FS-1128MFP NW-FAX
короче то ли печатает два листа то ли отправляет два листа но не делает чего просят
сначала распечатать потом отправить по факсу.




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[DiemonStar]

Kyosera

и

Kyocera

это не одно и то же

[nolte]

спасибо вижу попробую сегодня может это и ошибка хотя код с декодера тоже отказывался печатать правильно

[nolte]

да действительно вы были правы DiemonStar теперь делает то что надо