Question

我有大约10个工作表。我需要输入连续的页码。就像工作表A有10页一样，我需要将页码1到10，从页码11开始，用于表B。

我在所有工作表中使用for循环来放置页码。部分代码：

<?php
Modal::begin([
    'header' => '<h2>Show Modal</h2>',
    'toggleButton' => false,
    'id' => 'modal-opened',
    'size' => 'modal-lg'
]);

echo 'Modal Opened';

Modal::end();
?>

<?= Html::button('Open Modal', ['id' => 'modal-btn', 'class' => 'btn btn-success']) ?>

<?php

$this->registerJs(
    <<<JS
        $('#modal-btn').on('click', function (event) {
                 $('#modal-opened').modal('show');
        });
     JS
    );
?>

现在我不希望打印几页之间的页码。如何从这些工作表中停止打印页码？

提前致谢！

Answer 1

跳过空间表：

Sub dural()
For Each s In Worksheets
    If s.Name = "Special1" Or s.Name = "Special2" Then
    Else
        s.Activate
        Application.PrintCommunication = False
        With ActiveSheet.PageSetup
           .CenterFooter = "&""Arial""&12" & "Page &P"
        End With
        Application.PrintCommunication = True
    End If
Next s
End Sub

VBA - 特定纸张的顺序页码设置

1 个答案: