Sub soglashenie()
    Dim i&
        For i = Range("'форма'!j10") - 1 To Range("'форма'!k10") - 1
            i = i + 1
                Range("'www'!C2") = i
                Sheets("www").PrintOut
        Next i
Sheets("форма").Select
End Sub

Sub ChangePrinter()
    sNowPrinter = "Set"
    Dim v, s
    'запоминаем текущий принтер, чтобы можно было вернуть его после выбора
    s = Application.ActivePrinter
    'показываем окно выбора принтера
    v = Application.Dialogs(xlDialogPrinterSetup).Show
    'если принтер был выбран - запоминаем выбор
    If v = True Then
        sNowPrinter = Application.ActivePrinter
    End If
    'возвращаем принтер по умолчанию, чтобы стандартная печать шла на него
    Application.ActivePrinter = s
End Sub

Sub печать()
   sNowPrinter = "Set"
    Dim v, s
    s = Application.ActivePrinter
    v = Application.Dialogs(xlDialogPrinterSetup).Show
    If v = True Then
        sNowPrinter = Application.ActivePrinter
    End If
    Sheets("naz").Select
ActiveSheet.PrintOut Copies:=Sheets("форма").Range("j17")
Sheets("форма").Select
    Application.ActivePrinter = s

End Sub

Private Sub Макрос8()
Application.ScreenUpdating = False
Sheets("журнал постановлений").Visible = True
Sheets("журнал постановлений").Select
ActiveSheet.PrintOut copies:=1
Sheets("журнал постановлений").Visible = True
Sheets("форма").Select
Application.ScreenUpdating = True
End Sub