Tag: 打印
如何在Excel VBA中打印速度更快？
Excel的打印function（使用VBA）非常慢。 我希望有人有办法加快打印（不使用Excel 4macros技巧）。 以下是我现在的做法： Application.ScreenUpdating = False With ActiveSheet.PageSetup -various setup statements which I've already minimized- End With ActiveSheet.PrintOut Application.ScreenUpdating = True
excel vba中的打印和打印预览事件之间的区别
我有一些代码在Excel中拦截Before_Print事件，以确保用户在打印表单之前填写了所有必填字段。 但是，我只希望在用户实际打印时触发此代码，而不是在调用打印预览时触发。 在Before_Print代码中是否有任何方法可以告诉用户是实际打印还是只是预览？ 我现在的代码是（事件存根由excel生成）： Private Sub Workbook_BeforePrint(Cancel As Boolean) If Not Sheet2.CheckAllFieldsFilled Then Cancel = True End If End Sub
打印范围用户select的VBA Excel
我希望能够创build一个基本上像这样运行的模块： 定义4或5个打印范围; 提示用户一个input框; 允许用户从该input框中的下拉列表中select他们希望打印的范围; select范围后，他们击中确定，并提示一个“你确定吗？ 框以防止误点击。 我相当遗憾，我真的觉得我一直在写的代码将不会帮助你解决问题。 我已经由用户定义范围（手动select他们希望打印的列）的工作，但这不是我所期待的。 更进一步，是否有可能允许进一步定制打印格式（横向vs纵向和纸张types）？ 非常感谢您的帮助，我会尽我所能来回答问题，并提供我上面引用的代码示例（只是一个提示，允许您select列，我需要它是一个定义的范围，按名称， range1=a2:c14或类似的东西，因为最终用户不是一个伟大的Excel用户。 见下文： Sub SelectPrintArea() Dim PrintThis As Range ActiveSheet.PageSetup.PrintArea = "" Set PrintThis = Application.InputBox _ (Prompt:="Select the Print Range", Title:="Select", Type:=8) PrintThis.Select Selection.Name = "NewPrint" ActiveSheet.PageSetup.PrintArea = "NewPrint" ActiveSheet.PrintPreview End Sub 作为后续： 假设文档具有隐藏的部分，如果它们是用户定义范围的一部分（如它是分组的一部分），是否能够取消隐藏这些部分。 这将工作在一个受保护的文件？
单击确定后，Excel打印对话框将打开不需要的Excel实例
我正在使用xlApp.Dialogs[Excel.XlBuiltInDialog.xlDialogPrint].Show()向用户显示一个打印对话框，以打印以编程方式创build的Excel工作簿的内容。 打印部分工作正常后用户点击确定。 但是，除了打印之外，该程序还会打开并显示Excel的一个实例。 这不是打印预览，而是打开并显示给用户的实际Excel文档。 我的目标是向用户显示打印对话框，允许他们打印而不显示Excel。 我在这里寻找努力寻找某种方法或参数来禁用打开Excel。 不幸的是，我所发现的是我可以提供.Show（）有30个参数，但不是哪个参数对应于什么设置。 我还没有find任何东西，我的谷歌技术似乎没有今天我失败。 更新 ：我的代码中的“Excel”是一个别名： using Excel = Microsoft.Office.Interop.Excel; 我能够find内置的对话框参数列表 。 看“xlDialogPrint”我猜这些是进入.Show（）的参数。 但是，这个列表中没有任何东西似乎阻止Excel打开。 另一个更新 ：最简单的代码来重现行为 Excel.Application xlApp; Excel.Workbook xlWB; Excel.Worksheet xlWS; xlApp = new Excel.Application(); xlWB = xlApp.Application.Workbooks.Add(); xlWS = xlWB.Sheets[1]; xlWS.Cells[1][1] = "TEST"; xlApp.Dialogs[Excel.XlBuiltInDialog.xlDialogPrint].Show();
如何从macros菜单栏捕捉“打印”button
我从我控制打印过程的地方有一个自定义button的工作表。 现在用户点击菜单栏的打印图标，这会产生一个“未定义”的输出。 我怎样拦截这个菜单栏button？ 谢谢
PrintOut打印组而不是1组
我们在很多工作簿上都遇到这个问题，我们用VBAselect几张纸，然后用下面的一行打印出来，而Excel实际上会打印多组页，而不是一组多页。 ActiveWindow.SelectedSheets.PrintOut 这是一个具有此行为的Sub的示例： Private Sub imprimer(iColTypeRapport As Integer) Dim cell As range, rangeImpr As range, colonne As range Dim debute As Boolean ' True seulement si on a déjà sélectionné une feuille On Error GoTo erreur application.ScreenUpdating = False debute = False Set rangeImpr = ActiveSheet.range("impression") Set colonne = rangeImpr.Offset(0, iColTypeRapport).EntireColumn For Each cell In […]
使用Excel VBA列出打印机时遇到问题
所以这是原来的问题： 我有一个运行macros的button的Excel文件。 该macros需要将工作表打印到2台独立的networking打印机。 该工作簿将在networking上的多个不同的计算机上运行。 我目前的代码如下所示： Application.ActivePrinter = "Printer-A on Ne02:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False Application.ActivePrinter = "Printer-B on Ne05:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False 问题在于on Ne02:和on Ne05: 这些值因计算机而异。 例如： 打印机-A在Ne03上： Ne02上的打印机B： 打印机-A Ne07： 等等 我可以通过显示“select打印机”对话框并强制用户手动select打印机来绕过这个问题，但我更希望这是自动的。 我已经尝试使用Windows脚本宿主对象模型列出所有打印机，如下所示： Function FindPrinter(name As String) Dim nwo As New WshNetwork Dim i As Integer Dim fullName As String For i = […]
如何使用POI在Excel表格中设置打印标题行？
我想设置打印标题行，所以标题将打印在我使用POI 2.5.1的每一页的顶部
如何使用vb.net将datagridview导出为excel？
我有一个从数据库填充的vb.net datagridview。 我研究过，发现没有内置的支持从datagridview直接打印。 我不想使用水晶报告，因为我不熟悉它。 我打算将其导出为Excel以使我能够从datagridview生成报告。 你能为我提供方法吗？
打开现有的Excel文件，保留样式，编辑和插入图像在Python中
我有一个“Excel模板”，我需要打开，编辑一些单元格保持样式（字体，单元格宽度和高度，单元格合并等），最后添加或插入图像（JPG或PNG）保存在一个新的文件。 目前我已经尝试了4个选项。 XLWT / XLRD – 这个宝贝做什么似乎是最有效的工作，它打开xlsx很好保持所有样式，很容易编辑单元格（用一些技巧来保持样式），但它只插入位图（bmp ）图像，当它插入图像，它变得拉伸，不保留方面的广播和大小，我想知道它是否有解决scheme。 XLSXWritter – 这是非常实用和易于使用创build新文件。 它不能打开现有的。 这不是一个选项。 🙁 openpyxl – 它似乎插入图像与PIL（JPG，PNG，GIF等），但是当我打开现有的“模板”所有的风格都消失了，一切！ 所以这不是一个选项。 pythonexcels – 它似乎与微软Office Excel和win32com的工作，所以也许它不是一个交叉的平台选项，我不能find一种方式插入图像与此... 我想我也可以使用一些PDF的创build者，但我需要保持页面大小，因为我需要将创build的文件发送到打印机，但不是用letter或A4大小，我需要打印不同大小的不干胶标签。 我的问题是： 是否有任何解决schemexlwt？ 还有其他解决scheme吗？
