Tag: 打印

不需要的打印设置: 所以我在尝试打开一个新的工作簿（checkwb）时遇到了一些奇怪的行为。当新工作簿打开时，打开工作簿中每个页面的“打印设置”对话框。此外，点击“OK”〜200次后代码运行正常，但如果我closurescheckwb并尝试再次运行代码，则无法打开checkwb，直到完全closuresExcel并重新打开，此时打印对话框将重新出现。这是我的（不完整的）代码： Sub Check() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim homewb As Workbook Dim checkwb As Workbook Dim ws As Worksheet Dim namestr As String Dim checkarray() As Double Set homewb = Workbooks("BranchTable Calc B31.3.xlsm") Set checkwb = Workbooks.Open("Z:\Agrium\Redwater\E130040CP ~ Pipe Spec Update\M-Mech\20-Eng\Calcs\Final WT Calcs All Specs\New Bechtel Agrium comments.xlsm") For Each […]

Excelmacros基于范围值打印工作表: 我有一些难以find以下目标的正确的代码：我有一个工作表macros，当我改变单元格E5中的值，自动填充Sheet1中的某些字段，search并返回从其他表SheetTable表中的值。所以在更换单元格E5之后， sheet1基本上已经可以打印了。我的目标是在sheetTable的列上select一个范围的值，并将其中的每一个分配给sheet1上的单元格E5，并打印每个值。所以可以说我select了3个单元格，其值为45,50和66.当我运行这个macros时，它将为单元格E5指定45，然后打印Sheet1 ，然后它将为单元格E5指定50并打印Sheet1 ，最后将66指定给单元格E5和打印sheet1 。另外，我需要用PDF格式打印每个文件，得到的PDF文件名应该是E5单元的值[基本上就是range（e5）.value.pdf]。

PageSetup问题: 希望在“打印个人范围”系列问题的最后一个问题中，我特此谦虚地询问更多知识渊博的读者如何将PageSetup对象从一个页面复制到另一个页面。既然你可以简单Dest.PageSetup = Source.PageSetup我不得不创build相同的function。一个缩写forms如下： Public Sub CopyPageSetup(ByVal Source As Worksheet, ByRef Dest As Worksheet) With Source.PageSetup Call SetParam(.AlignMarginsHeaderFooter, Dest.PageSetup.AlignMarginsHeaderFooter) ' etc Call SetParam(.Zoom, Dest.PageSetup.Zoom) End With End Sub 而SetParam就是： Public Sub SetParam(ByVal Source As Variant, ByRef Dest As Variant) If Dest <> Source Then Dest = Source End Sub 然而，这不会复制页面设置跨 – 调用此函数后，我调用tmp.PrintPreview （其中tmp是一个临时工作表），输出是相同的，如果我从来没有调用该函数。这是海市蜃楼吗（它对你有用吗？），如果不是海市蜃楼，我需要做些什么来纠正？

读取Excel文件并仅使用特定文件: 在我过去的问题中，我已经说过我是python的新手了。我只用了一次工作。再一次，我还有一个小小的工作要做。我必须读取一个excel文件，并在该excel文件中，有3列（col1，col2，col3）。大约有100行。 col1有2个值A和B. col2的值范围从1 – 10。col3，有很多不同的值。但是我希望我的python程序查看col1中每个不同的值，然后查看col2中每个不同的值，然后计算col3的所有相应值的平均值。希望输出结果如下所示： A – 1 = 2.3 A – 2 = 6.2 A – 3 = 5.7 etc. etc. B – 1 = 3.5 B – 2 = 4.1 B – 3 = 8.1 etc. etc. 我知道，要问很多，但我已经做到了这一点： import xlrd #import package #opening workbook and reading first […]

Excel Apache POI打印问题: 我正在使用Apache POI来生成dynamicExcel。我有彩色细胞。对于我使用的颜色 headerCellStyle.setFillForegroundColor（HSSFColor.GREY_25_PERCENT.index）; headerCellStyle.setFillPattern（HSSFCellStyle.SOLID_FOREGROUND）; Excel生成完美的颜色，但是当我打印这个Excel背景颜色来与虚线的阴影。我试过并检查以下内容：它不是打印机问题当我将生成的Excel的内容复制到新的Excel中。它的印刷来完美。所以在代码或POI中一定有错误。

自动检测文件夹中新添加的文件，并在默认打印机上打印: 由于从我的WIN7电脑打印文档中的兼容性问题，我的老板的打印机（LX 300+）安装在联网的（本地）PC上运行WIN XP，我想创build一个应用程序，将在该PC上创build一个文件夹winxp）并且每次在该文件夹上添加一个新文件（word，excel，pdf）时都会打印（比如dropbox除了打印而不是上传）。我做了我的研究，我已经得到了打印脚本（word，excel，pdf），还有一个创build目录/文件夹的脚本。我现在需要的是：一个附加（或者其他方式）到文件夹中的Python脚本（我不知道它如何与Dropbox一起工作），它将检测该文件夹中新添加的文件，并使用默认打印机自动在默认打印机上打印设置。我正在使用Python 3.3。

Excel COM对象忽略打印区域: 当用Excel COM对象打开Excel工作簿时 app = gencache.EnsureDispatch("Excel.Application") doc = app.Workbooks.Open(filepath) 所有的打印区域都被丢弃，但是当文件正常打开时，可以通过VBA进行访问。

Out-File不会生成与export-csv相同的数据: 晚间，我试图得到所有在一个站点上有超过3000个打印机的权限的用户列表，我一直在试图将输出到他们自己的独立列中的SID分开，这是我无法做到的。我试图让Export-CSV显示与Out-File相同的数据，因为我确定可以使用Export-CSV来执行此操作。这是我的。 $printers = Get-Content -Path C:\Users\Admin\Desktop\FinalPrinters3020.txt (Get-Printer $printers -Full).PermissionSDDL | Export-CSV -NoTypeInformation -Path \\FileServer\Printerlist\Printers30202.csv 当我这样做，我得到这个：当我使用Out-File时： $printers = Get-Content -Path C:\Users\Admin\Desktop\FinalPrinters3020.txt (Get-Printer $printers -Full).PermissionSDDL | Out-File '\\FileServer\Printerlist\Printers30202.csv' 我得到的数据应该是这样的：