Новичок
Профиль
Группа: Участник
Сообщений: 10
Регистрация: 15.8.2016
Репутация: нет Всего: нет
|
Доброго всем времени суток. В общем вопрос вот в чём. Я запускаю книгу Excel из под сторонней программы. При этом Excel на экран не выводится. Запускается макрос, который отправляет на печать форму с заполненными данными, то есть просто делает "тихую" печать. Но вот загвоздка в том, что печать идёт не на принтер по умолчанию, а на какой-то другой в системе. Раньше на другой ОС (Windows 7) всё отлично работало, а теперь, когда у меня новый компьютер с установленной на нём Windows 10, происходит это недоразумение. Подскажите, может кто-то с сталкивался с подобной проблемой или может знает, как её победить. Заранее спасибо. Прилагаю текст макроса, хотя я что-то уверен, что дело не в нём, потому что, если открыть файл через Excel, и выполнить макрос, печать идёт на принтер по умолчанию. Код | Sub Макрос() Worksheets("Данные").Range("I2:N2").Copy Worksheets("Шаблон").Range("J2:O2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Worksheets("Шаблон").Range("J53:O53").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Данные").Range("I3:M3").Copy Worksheets("Шаблон").Range("R2:V2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Worksheets("Шаблон").Range("R53:V53").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Данные").Range("I4:AR4").Copy Worksheets("Шаблон").Range("M11:AV11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Worksheets("Шаблон").Range("M62:AV62").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Данные").Range("I5:AR5").Copy Worksheets("Шаблон").Range("M12:AV12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Worksheets("Шаблон").Range("M63:AV63").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Данные").Range("I6:AR6").Copy Worksheets("Шаблон").Range("M13:AV13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Worksheets("Шаблон").Range("M64:AV64").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Данные").Range("I8:K8").Copy Worksheets("Шаблон").Range("S20:U20").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Worksheets("Шаблон").Range("S71:U70").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Данные").Range("I9:J9").Copy Worksheets("Шаблон").Range("V20:W20").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Worksheets("Шаблон").Range("V71:W71").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Данные").Range("I12:AS12").Copy Worksheets("Шаблон").Range("K28:AU28").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Worksheets("Шаблон").Range("K79:AU79").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Данные").Range("I10:N10").Copy Worksheets("Шаблон").Range("I36:N36").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Worksheets("Шаблон").Range("I87:N87").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Данные").Range("I7:AA7").Copy Worksheets("Шаблон").Range("AC45:AU45").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Worksheets("Шаблон").Range("AC96:AU96").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Данные").Range("I15:AR15").Copy Worksheets("Шаблон").Range("M10:AV10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Worksheets("Шаблон").Range("M61:AV61").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Данные").Range("I17:AH17").Copy Worksheets("Шаблон").Range("W15:AV15").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Worksheets("Шаблон").Range("W66:AV66").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Данные").Range("U10:AA10").Copy Worksheets("Шаблон").Range("X20:AD20").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Worksheets("Шаблон").Range("X71:AD71").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Данные").Range("I11:K11").Copy Worksheets("Шаблон").Range("AM20:AO20").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Worksheets("Шаблон").Range("AM71:AO71").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Шаблон").Select Rows("1:101").Select Selection.Copy Sheets("Результат").Select Rows("1:1").Select Selection.Insert Shift:=xlDown
Sheets("Результат").PrintOut Copies:=1, Collate:=True
Application.DisplayAlerts = False Application.Quit End Sub
|
|