VBA 指定打印机打印

山了吧

可以改下为SHEET2 指定单元的打印马?谢谢

山了吧

我本想英俊 发表于 2017-8-2 13:38
Function NameExist(sName As String) As Boolean    '判断定义名称是否存在函数
Dim NameCount As Intege ...

大神您好，请问这个设置如何再加上只 打印 指定的单元 ？您代码是默认打印整个工作表的

ifrogz

山了吧 发表于 2023-1-28 18:47
大神您好，请问这个设置如何再加上只 打印 指定的单元 ？您代码是默认打印整个工作表的

可以先设置打印区域

hongshan2019

棒，之前咋没看到这个帖子，记下来

yanglinzi

谢谢分享、

zty02

利用楼主方法修改了下

运用方法一：每次跳出设置打印机
Private Sub Printsetup()'每次跳出设置打印机
Dim n As Boolean
    n = Application.Dialogs(xlDialogPrinterSetup).Show
      If n = True Then
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True'执行打印
      Exit Sub
      End If
End Sub

运用方法二：只设置一次打印机
Private Sub Printsetup()'设置切换打印机
Dim n As Boolean
    n = Application.Dialogs(xlDialogPrinterSetup).Show
      If n = True Then
      Exit Sub
      End If
End Sub

Sub 打印()'执行打印
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

zty02

利用楼主代码修改了下

运用方法一：每次跳出设置打印机
Private Sub Printsetup()'每次跳出设置打印机
Dim n As Boolean
    n = Application.Dialogs(xlDialogPrinterSetup).Show
      If n = True Then
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True'执行打印
      Exit Sub
      End If
End Sub

运用方法二：只设置一次打印机
Private Sub Printsetup()'设置切换打印机
Dim n As Boolean
    n = Application.Dialogs(xlDialogPrinterSetup).Show
      If n = True Then
      Exit Sub
      End If
End Sub

Sub 打印()'执行打印
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

134679168s

做个记号，来学习。。

xijiagao

这个代码只能判断当前打印机和指定的打印机是否一致 只要当前打印机和指定打印机不一致就会弹出对话框 这步是多余的 把打印机名字放在名称管理器里用起来不方便 还不如另起一个表格 把各种设置参数放在表格里 这样用起来也方便灵活 所以这个办法不完美