设置EXCEL的默认打印机

最新推荐文章于 2023-06-13 22:20:32 发布
原创 最新推荐文章于 2023-06-13 22:20:32 发布 · 7.4k 阅读 · 1 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#excel

本文介绍如何通过EXCEL的workbook事件设置默认打印机的方法。利用VBA代码可以在打印前自动切换到指定的打印机，例如pdfFactoryPro在FPP3:。此技巧适用于希望更改默认打印选项的用户。
部署运行你感兴趣的模型镜像

系统设置了一个默认打印机，但在EXCEL有些人喜欢用其它的打印机做默认项，这个可以通过EXCEL的workbook的事件来实现

 

 注意： 1、括号里打印机的名称一定不能错，如果不知道你想设置的打印机名称，可以设置默认打印机后再在EXCEL的立即窗口输入

这样就能获取该打印机的完整全称

 

您可能感兴趣的与本文相关的镜像

Llama Factory

Llama Factory

模型微调
LLama-Factory

LLaMA Factory 是一个简单易用且高效的大型语言模型（Large Language Model）训练与微调平台。通过 LLaMA Factory，可以在无需编写任何代码的前提下，在本地完成上百种预训练模型的微调

VBA 一键打印功能(当前文件中的工作表)
springdk2009的博客
04-29 1311
时间：2017-03-06 17:31:47。
不能设置默认打印机造成Excel无法打印问题的解决办法.pdf
最新发布
07-15
在排除了驱动程序和默认打印机设置等软件问题之后，如果问题依旧存在，那么可能涉及到打印机硬件本身。用户可以尝试检查打印机连接线是否松动，打印机内是否有卡纸现象，或是进行简单的电源重启操作，有时候简单的...
excel vba中设置打印机的代码
06-27
在excel中通过注册表获得所有系统打印机，并根据需要指定其一的代码。
博客摘录「 VBA打印机设置（列出所有打印机名字、选用合适的打印机并设计端口号）」2023年6月13日
Flynn
06-13 1816
【代码】博客摘录「 VBA打印机设置（列出所有打印机名字、选用合适的打印机并设计端口号）」2023年6月13日。
excel 默认打印机与系统不一致_不能设置表格页面属性，试试这个解决办法吧！||Excel技巧...
weixin_36489344的博客
12-24 1076
前两天一个童鞋求助加油菌：刚开始加油菌怀疑是这个工作簿有什么问题，不过紧接着她就介绍道，所有的工作簿都不能进行页面设置，并且她已经重新安装了Office…既然是所有工作簿都有这个问题，而且已经重装了Office，那就排除是Excel软件本身的原因。需要注意的是，这里进行的是页面设置方面的操作，而页面设置是需要打印机支持的，所以这里需要查看打印机是否可用。单击桌面左下角的“开始”按钮，在打...
【VBA研究】打印表单时指定打印机
驽马十驾 才定不舍
02-28 9809
作者：iamlaosong ​ 我用Excel做做了一个打印拣货单标签的工具，实际上是打印邮件标签兼做拣货单，由于仓库电脑需要连接多台打印机（不同标签用纸不同，换纸还不如换打印机），所以打印标签时，经常要改变默认打印机，一旦忘了修改，就会打印出一堆废纸来。那么，不改变默认打印机，能不能将标签打印到指定的打印机上面呢？ 答案是肯定的。
C#快速打印excel文件Demo，包含如何选择默认打印机
09-17
通过C#，将所要打印的Excel文件转化成图像格式，并利用Graphic对图像进行操作，通过选择默认打印机，对Excel进行打印。适合新手学习使用，大佬勿喷，软件实测可用，请放心下载。PS：需要自行下载spire.xls插件
精选资源
Excel-VBA宏编程实例源代码-设置预设打印机.zip
12-14
这个属性允许我们将任何已安装的打印机设置为默认打印机。下面是一个简单的VBA代码示例，展示了如何设置默认打印机： ```vba Sub SetDefaultPrinter() Dim printerName As String printerName = "你的打印机名称...
C#实现Excel打印到默认打印机的示例教程
在本示例中，我们将探讨如何使用C#快速打印Excel文件，并包含如何选择默认打印机的步骤。 首先，了解如何将Excel文件内容转换为图像格式。在C#中，这通常涉及到使用第三方库，比如本案例中提到的spire.xls插件。...
VBA打印机设置（列出所有打印机名字、选用合适的打印机并设计端口号）
piao3701的博客
01-07 6284
Sub PrinterDemo() Dim WshNetwork As Object Dim oPrinter As Object Dim i As Long Set WshNetwork = CreateObject("WScript.Network") Set oPrinter = WshNetwork.EnumPrinterConnections For i = 0 To oPrinter.Count - 1 If i Mod 2 = 0
VB设置默认打印机设置默认打印机
12-19
Option Explicit Const KeyName = "Software\Microsoft\Windows NT\CurrentVersion\Windows" Private Sub Command1_Click() Dim Ver As OSVERSIONINFO, S As String, hKey As Long Dim Device As String, length As Long Ver.dwOSVersionInfoSize = Len(Ver) GetVersionEx Ver Device = List1.Text length = LenB(StrConv(Device, vbFromUnicode)) + 1 If Ver.dwPlatformId = VER_PLATFORM_WIN32_NT Then RegOpenKey HKEY_CURRENT_USER, KeyName, hKey RegSetValueEx hKey, "Device", 0, REG_SZ, ByVal Device, length RegCloseKey hKey MsgBox "设置默认打印机： " & List1.Text & " 成功！", vbInformation, "温馨提示" Else WriteProfileString "windows", "device", Device SendMessage HWND_BROADCAST, WM_WININICHANGE, 32767&, ByVal "windows" End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim i As Integer For i = 0 To Printers.Count - 1 List1.AddItem Printers(i).DeviceName & "," & _ Printers(i).DriverName & "," & _ Printers(i).Port Next End Sub
vb设置默认打印机 vb设置默认打印机
02-17
可选择要设置的打印机进行设置，设置选择的打印机为默认打印机，源代码
代码设置默认打印机
哈哈__哈哈的专栏
07-29 1079
Imports System.Management Dim query As ManagementObjectSearcher Dim queryCollection As ManagementObjectCollection Dim _classname As String = "SELECT * FROM Win32_Printer"
VB调用系统的"打印机设置"和"页面设置".
yj_net的专栏
08-18 582
<br />Option Explicit   <br />Const FW_NORMAL = 400   <br />Const DEFAULT_CHARSET = 1   <br />Const OUT_DEFAULT_PRECIS = 0   <br />Const CLIP_DEFAULT_PRECIS = 0   <br />Const DEFAULT_QUALITY = 0   <br />Const DEFAULT_PITCH = 0   <br />Const FF_ROMAN = 16  
VB 获取默认打印机的状态
demonzsmj12315的博客
06-17 692
如何获取默认打印机的状态，包括缺纸、卡纸、无连接等状态，还有将某文件打印后，如何得知打印成功？Option ExplicitDeclare Function MapPhysToLin Lib "WinIo.dll" (ByVal PhysAddr As Long, ByVal PhysSize As Long, ByRef PhysMemHandle) As LongDeclare F...
如何用vb设置默认打印机?
weixin_30246221的博客
06-14 818
Option Explicit Public Enum PrinterOrientationConstants OrientPortrait = 1 OrientLandscape = 2 End Enum Private Type DEV...
JS不改变默认打印机，使用指定打印机打印
weixin_39471428的博客
05-05 3677
web调用本地打印机，在不改变默认打印机的情况下，使用本地指定打印机来打印，求大神，
C#设置与获取默认打印机 获取打印机列表
chenhao0568的专栏
07-11 3872
1
评论 1
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值