[已解决]根本总表格来连续打印小图表

Rose070114

根本总表格来连续打印小图表    一次打印13份

最佳答案

月排行榜 / 总排行榜

scl5801

2016-7-23 21:04

你试一下

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Row >= 6 And Target.Column = 27 Then
   With Application
      Set fp = Worksheets("发票")
      Dim x%
      n = --Range("w2")
      m = --Range("y2")
      If n > m Then
         MsgBox "前面的编号小于后面的编号，请重新选择"
         Exit Sub
      End If
      For x = n To m
         Range("w2") = Application.Text(x, "00")
        .ScreenUpdating = True
         Names.Add Name:="Print_Area", RefersTo:="=$B$1:$U$19"
         ActiveSheet.PrintOut
         fp.Range("w2") = ""
      Next x
   End With
   End If
End Sub

跳转到最佳答案楼层

scl5801

你试一下

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Row >= 6 And Target.Column = 27 Then
   With Application
      Set fp = Worksheets("发票")
      Dim x%
      n = --Range("w2")
      m = --Range("y2")
      If n > m Then
         MsgBox "前面的编号小于后面的编号，请重新选择"
         Exit Sub
      End If
      For x = n To m
         Range("w2") = Application.Text(x, "00")
        .ScreenUpdating = True
         Names.Add Name:="Print_Area", RefersTo:="=$B$1:$U$19"
         ActiveSheet.PrintOut
         fp.Range("w2") = ""
      Next x
   End With
   End If
End Sub

Rose070114

scl5801 发表于 2016-7-23 21:04
你试一下

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

这些我都不会弄,  能不能具体的教教?

Rose070114

scl5801 发表于 2016-7-23 21:04
你试一下

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

能留下个联系方式吗?

scl5801

Rose070114 发表于 2016-7-26 12:56
能留下个联系方式吗?

多来论坛学习，慢慢就会了。