请教各位老师大神如何设置自动打印工作簿中有某个标记的区域

4ta

想设置个VBA，能够使在工作簿所有的sheet表中，被字母标记的表格行，都能够自动排好格式并打印出来，请各位指点帮忙，谢谢！
详见附件，求帮助！

4ta

自己写的VBA，我是新手可能思维比较混乱，，，见谅。
这个只能运行第一个表，只能打印最后一个被标记的行，不知为啥。
Sub 宏3()
    Dim p, i, x, Arr(1 To 1000) As Integer, arr1()
   For Each st In Sheets
   Erase Arr
   Erase arr1
     For x = 1 To 1000
     n = x
     If st.Range("J" & x) = "Y" Then
         Arr(n) = x
      End If
     Next x

  For n = 1 To 1000
  If Arr(n) = 0 Then
  i = i + 1
  End If
  Next n

If i = 1000 Then
  GoTo us
  End If

For n = 1 To 1000
If Arr(n) <> 0 Then
h = h + 1
ReDim arr1(h)
arr1(h) = Arr(n)
End If
Next

p = Range("A" & Application.Min(arr1) & ":J" & Application.Max(arr1)).Address
st.PageSetup.PrintArea = p
    st.PageSetup.PrintTitleRows = "$1:$1"
    st.PageSetup.Zoom = False
    FitToPagesWide = 1
    st.PrintPreview
  us: Next st
End Sub

alstar

Sub test()
num = WorksheetFunction.CountIf([j:j], "Y")
ReDim AR(1 To num, 1 To 10)
arr = Range("a1:j" & Cells(Rows.Count, 1).End(xlUp).Row)
    For i = 1 To UBound(arr)
        If arr(i, 10) = "Y" Then
            N = N + 1
            For II = 1 To 10
                AR(N, II) = arr(i, II)
            Next
        End If
    Next
Sheets.Add
[A1].Resize(UBound(AR), 10) = AR
ActiveSheet.PrintOut
End Sub
我的逻辑是这样的。。修改一下应该是可行的。

4ta

alstar 发表于 2018-9-16 15:21
Sub test()
num = WorksheetFunction.CountIf([j:j], "Y")
ReDim AR(1 To num, 1 To 10)

谢谢回复！这个VBA通过把所需打印的部分添加到新增的表中完成打印，运行多次后会增加很多表，有木有不通过增加sheet表，并且所有sheet表全部自动运行一遍的VBA？求指导。

4ta

alstar 发表于 2018-9-16 15:21
Sub test()
num = WorksheetFunction.CountIf([j:j], "Y")
ReDim AR(1 To num, 1 To 10)

还有想请教下，【A1】在这里面是什么意思啊，还有一般中括号在VBA中有什么用啊，我是新手不太清楚中括号的运用，谢谢！

4ta

求帮助！顶一下

alstar

Sub test()
For Each sht In Worksheets
If sht.Name <> "打印表" Then
With sht
num = WorksheetFunction.CountIf(.[j:j], "Y")
ReDim AR(1 To num, 1 To 10)
arr = .Range("a1:j" & .Cells(Rows.Count, 1).End(xlUp).Row)
     For i = 1 To UBound(arr)
         If arr(i, 10) = "Y" Then
             N = N + 1
             For II = 1 To 10
                 AR(N, II) = arr(i, II)
             Next
         End If
     Next
End With
Sheets.Add.Name = "打印表"
Sheets("打印表").UsedRange.ClearContents
Sheets("打印表").[A1].Resize(UBound(AR), 10) = AR
Sheets("打印表").PrintOut
End If
Next
End Sub
可以用循环来批量打印所有工作表

alstar

4ta 发表于 2018-9-16 16:15
还有想请教下，【A1】在这里面是什么意思啊，还有一般中括号在VBA中有什么用啊，我是新手不太清楚中括号 ...

那个A1是符合打印的数据放到新建的工作表，以A1为顶点区域的单元格区域中。进行打印。

4ta

求帮助哇，有老师能解决吗？

4ta

alstar 发表于 2018-9-16 20:04
Sub test()
For Each sht In Worksheets
If sht.Name  "打印表" Then

你好，不好意思没及时看到这条回复，我用您的代码运行，只能成功打印第一页，之后就会显示运行时错误9：下标越界。这是为什么呢，忘您抽空帮忙看看，谢谢！