1

Topic:

Kind all time of days.
In general a question here in what. I launch book Excel from under the indirect program. Thus Excel on the screen it is not deduced. The macro which sends on the press the form with the filled data is launched, that is simply does the "silent" press. But here a hitch that the press goes not on the printer by default, and on any another in system. Earlier on other OS (Windows 7) all perfectly worked, and now when at me the new computer with installed on it Windows 10, happens this misunderstanding.
Prompt, someone can with faced a similar problem or can knows, how it to win.
In advance thanks.
I apply the macro text though I something am assured that matter is not in it because, if to open a file through Excel and to fulfill a macro, the press goes on the printer by default.

Sub the Macro ()
Worksheets ("Data").Range ("I2:N2").Copy
Worksheets ("Template").Range ("J2:O2").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Template").Range ("J53:O53").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Data").Range ("I3:M3").Copy
Worksheets ("Template").Range ("R2:V2").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Template").Range ("R53:V53").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Data").Range ("I4:AR4").Copy
Worksheets ("Template").Range ("M11:AV11").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Template").Range ("M62:AV62").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Data").Range ("I5:AR5").Copy
Worksheets ("Template").Range ("M12:AV12").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Template").Range ("M63:AV63").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Data").Range ("I6:AR6").Copy
Worksheets ("Template").Range ("M13:AV13").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Template").Range ("M64:AV64").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Data").Range ("I8:K8").Copy
Worksheets ("Template").Range ("S20:U20").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Template").Range ("S71:U70").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Data").Range ("I9:J9").Copy
Worksheets ("Template").Range ("V20:W20").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Template").Range ("V71:W71").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Data").Range ("I12:AS12").Copy
Worksheets ("Template").Range ("K28:AU28").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Template").Range ("K79:AU79").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Data").Range ("I10:N10").Copy
Worksheets ("Template").Range ("I36:N36").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Template").Range ("I87:N87").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Data").Range ("I7:AA7").Copy
Worksheets ("Template").Range ("AC45:AU45").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Template").Range ("AC96:AU96").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Data").Range ("I15:AR15").Copy
Worksheets ("Template").Range ("M10:AV10").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Template").Range ("M61:AV61").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Data").Range ("I17:AH17").Copy
Worksheets ("Template").Range ("W15:AV15").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Template").Range ("W66:AV66").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Data").Range ("U10:AA10").Copy
Worksheets ("Template").Range ("X20:AD20").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Template").Range ("X71:AD71").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Data").Range ("I11:K11").Copy
Worksheets ("Template").Range ("AM20:AO20").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Worksheets ("Template").Range ("AM71:AO71").PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False
Sheets ("Template").Select
Rows ("1:101").Select
Selection. Copy
Sheets ("Result").Select
Rows ("1:1").Select
Selection. Insert Shift: = xlDown
Sheets ("Result").PrintOut Copies: = 1, Collate: = True
Application. DisplayAlerts = False
Application. Quit
End Sub