Tag: 打印
在Excel中隐藏分页符
继我之前的 问题之后 ： 我已经实现了一系列用户可以隐藏/取消隐藏数据范围的checkbox。 这很好 – 它的作品。 问题是当用户去打印 – 隐藏的数据被隐藏，但页面仍然存在，但空白。 如果分页留给自己的设备，那么一切都很好 – 没有空白部分。 当使用手动分页符时，您可以看到数据的位置。 我已经尽了一切努力摆脱空白区域。 复制范围并重新计算分页符是不合理的，因为分页符占用2分钟的时间只是一个相当小的报表。 那么， 我怎样才能打印没有隐藏的范围呢？ 谢谢，G.
发送Excel文件到客户端的打印机
我有一个PHP网站，我正在写一些数据到一个Excel文件。 我的Excel文件可以用一个button下载。 它打开一个窗口或下载pipe理器（如果configuration）。 到目前为止一切正常。 现在我想将这个文件自动发送到客户端的默认打印机。 当用户点击打印时，网页必须发送“EXCEL FILE”到打印机。 不像JavaScript中的“window.print（）”函数。 有没有办法做到这一点与JavaScript或AJAX？ 客户端是否必须下载Excel文件才能将其发送到默认打印机？ 我试图使用“src = bla_bla.xls”隐藏的“iframe”，但它会自动打开下载窗口。 简而言之，我希望将这个在服务器上准备的Excel文件发送到客户端的默认打印机并打开打印选项窗口。
根据自定义DPI，打印到PDF在Excel中是不同的
我今天早上被召集到一个我曾经在Excel中build立的工具。 该工具生成一个报告，然后打印到PDF。 他们打电话给我的问题是，对于一个用户，PDF中的行间距已closures。 我花了一段时间才弄清楚问题的原因。 这是新闻部。 无法看到字体的用户已经将Windows的字体增加到了150％，并且出于某种原因导致excel导出为pdf格式不同。 我知道问题是什么，但要求用户更改DPI（强制用户注销），重新login，打开excel并运行我的macros，最后改回DPI不是一个合理的解决scheme。 我希望有一位能够帮助我find解决办法的专家。 我不介意在程序运行时添加VBA代码来临时更改DPI，但我不确定如何做到这一点，或者如果可能的话。 谢谢 为了更清楚地说明其Windows 7和我所说的方面是如果你去改变分辨率有一个链接，询问是否要“使文本和其他项目更大或更小”。 滑块从默认的100％更改为150％。
Excel VBA：是否可以通过VBA进入“New-School”打印预览？
除了一个把Excel打印预览指为“新学校”和“老派”的网站，我找不到一个好的答案。 从本质上讲，我的问题是：有没有办法通过代码来调用“New-School”打印预览？ 我目前使用这个： Application.Dialogs(xlDialogPrint).Show和它工作正常，但我需要一个不同的…（老学校？）打印预览。 我试过在File> Print的时候录制一个macros，但是直接送到打印机。 这是我的例子： 新学校： 老套： 感谢您的任何帮助！ 我真的欠这个网站的债务！
用Microsoft.Office.Interop.Excel和CLR在Python中打印Excel文件？
我一直在寻找很多方法来打印excel文件，而不打开Excel应用程序 ，我在C＃中使用Microsoft.Office.Interop.Excel，它工作得很好，所以我决定寻找一种方法，使其在Python中工作，我发现IronPython，但我只需要python，然后我发现pythonnet使.NET程序集在python中工作。 问题是，从源https://github.com/pythonnet/pythonnet安装它（或试图）它给了我一个关于Windows SDK找不到或错误的错误。 然后我用pip安装它，安装成功，但是当我尝试导入或添加引用时，显示另一个错误： Unable to find assembly 'Microsoft.Office.Interop.Excel'. at Python.Runtime.CLRModule.AddReference(String name) 我已经从这里下载并安装了Interop Assemblies，所以他们应该被安装。 我发现了一个在这里使用IronPython和Interop dll打印excel文件的方法。 我的主要问题是我需要打印一些Excel文件，而不打开Excel应用程序 ，如果你有另一个选项是值得欢迎的 如果没有其他select，我该怎么做才能find组件？ 附加信息：用C＃打印我用这个： Microsoft.Office.Interop.Excel.Application excelApp = new Microsoft.Office.Interop.Excel.Application(); String CompletePath = path; Microsoft.Office.Interop.Excel.Workbook wb = excelApp.Workbooks.Open(CompletePath, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing); Microsoft.Office.Interop.Excel.Worksheet ws = (Microsoft.Office.Interop.Excel.Worksheet)wb.Worksheets[1]; try { // […]
从一张纸到另一张纸的映射填充未填充的字符
所以我有一个Excel文件，部分填充字符数组（“|”显示excel列行）： 当前结果（“_”是空格）： 1111GGH80100022190 1112QQH80100023201 1113GGH80100045201 1114AAH80100025190 所以我现在的代码输出这个结果。 问题是字符1-5和21-24被跳过。 一般来说，如果没有列号占我应该打印“”（空间）。 期望的结果（“_”是空格）： _____1111GGH80100022____190 _____1112QQH80100023____201 _____1113GGH80100045____201 _____1114AAH80100025____190 是否有列的方式来检测，如果我缺less标题列中的范围？ 我目前使用这个，只select数据： Private Sub WriteFile_Click() Dim myFile As String, rng As Range, cellValue As Variant, I As Integer, j As Integer myFile = "C:\Reformatted.txt" Set rng = Selection Open myFile For Output As #1 For I = 1 To rng.Rows.Count For […]
在Excel VBA中select打印机
当试图在Excel中的特定打印机上打印时，当服务器更改其提示时，会显示一条错误消息。 当试图解决这个问题时，我使用了“在错误恢复下一个”function，但这只是丑陋的（并不是所有的时间）。 这是我目前的公式 Application.ScreenUpdating = False ActivePrinter = "\\w8vvmprint01\Moecombi04 op Ne01:" On Error Resume Next ActivePrinter = "\\w8vvmprint01\Moecombi04 op Ne02:" On Error Resume Next ActivePrinter = "\\w8vvmprint01\Moecombi04 op Ne03:" On Error Resume Next ActivePrinter = "\\w8vvmprint01\Moecombi04 op Ne04:" On Error Resume Next ActivePrinter = "\\w8vvmprint01\Moecombi04 op Ne05:" On Error Resume Next ActivePrinter = "\\w8vvmprint01\Moecombi04 op […]
VBA打印macros以特定的方式设置页面
我一直在研究打印macros，我认为这可能很简单。 我试过录制一个macros，并且一直在研究几个小时看其他人的代码。 我想要的是macros： 1）select活动工作表中的所有单元格 2）设置打印比例以适合所有列到一页 3）打印横向模式 4）打开预览（如果可能的话） 5）如果＃4不可行，则执行打印作业。 当我运行我当前的代码时，我的Excel工作表被分割成大量的页面（棋盘式样），然后我得到一个错误代码。 谢谢阅读。 这是我现在的代码： Sub PrintNOPAsheet()' ' PrintNOPAsheet Macro Cells.Select Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Application.PrintCommunication = True ActiveSheet.PageSetup.PrintArea = "$A$1:$H$346" Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = […]
VBA excel打印到用户forms的打印机
我有一个用户表单，填写时，底部有一个命令button。 当button被点击时，它将数据复制到工作表2，然后将行信息复制到工作表4中，这是一个窗体，closures用户窗体并打开欢迎用户窗体，然后我希望它打印工作表4。 这是我的代码。 打印function将不起作用。 Private Sub SavePrintButton_Click() EditAdd Sheet4.Activate Dim myValue As Variant myValue = TextBox1.Value Range("b2").Value = myValue Unload Me Function PrintOneSheet() Sheets("Sheet4").PrintOut End Function WelcomeUserForm.Show End Sub
打印通过VBA代码将副本四份复制到单个PDF文件
我有一个Excel的VBA代码在默认打印机上打印四份副本。 我想要的是将这个一式四份作为一个PDF文件保存，即在一个连续的4页PDF文件中的所有四张纸。 代码如下。 Sub PrintInvoiceQuadtriplicate() Dim i As Integer Dim VList As Variant VList = Array("ORIGINAL FOR RECIPIENT", "DUPLICATE FOR TRANSPORTER", "TRIPLICATE FOR SELLER", "EXTRA COPY") For i = LBound(VList) To UBound(VList) Range("L1") = VList(i) ActiveSheet.PrintOut Next End Sub 请让我知道如何修改此代码来获取单个PDF文件，而不是单独的页面。
