Tag: 打印

Excel公式来改变页面布局的方向

问题：是否有Excelfunction在纵向或横向之间切换页面布局方向？ 细节：我已经build立了两个命名范围，一个叫做Tall，一个叫Wide。 我使用下拉框的单元格链接（$ V $ 22）将打印区域dynamic设置为这些命名区域，方法是将指定区域“Print_Area”设置为： =CHOOSE('Sheet1'!$V$22,Tall,Wide) 这可以很好地设置打印区域。 我还想将页面布局 – >方向设置为纵向或横向，以适应我的高或宽打印区域。 这可能吗？ 谢谢，道格

用VBA打印一个HTML文件

我一直在研究这一段时间，我已经拿出了下面的代码。 但是，我不断收到错误。 见下文。 这个代码的目的是生成一个HTML文档。 然后打开并从打印机打印文档。 我已经获得文件成功保存，甚至在IE窗口中打开它。 然后我得到错误。 Function generateResults() Dim resultsBrowser As SHDocVw.InternetExplorer Set resultsBrowser = New SHDocVw.InternetExplorer Dim resultsPath As String Dim resultsFile As String resultsPath = ThisWorkbook.Path & "\As-Run Test Results" If Len(Dir(resultsPath, vbDirectory)) = 0 Then MkDir resultsPath End If resultsFile = resultsPath & "\As-Run " & Format(Now, "mm-dd-yyyy hmmss") & ".html" […]

打印时如何启用订书机？

我试图从Excel中打印一个Word文档。 这工作，除了我需要启用这个打印工作的订书机。 我的打印机，施乐工作中心5755，可以在左上angular放置一个或两个订书钉。 Excel显然可以pipe理这个，我不需要进入打印机驱动程序属性来启用装订，我可以直接从文件打印页面启用。 当我进入这个页面时，在“设置”下面有一个用订书机符号写下的“无订书钉”的下拉框。 如果点击它，我可以select“无订书钉”，“左上方钉书针”和“左上方的两个订书钉”以及其他灰色的选项。 我试着录制一张macros，用左上方的钉书钉和双面打印进行打印。 这是它给我的。 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False 这既不装订也不双面打印。 我读了这个主题的多个线程，但他们都是老，并没有真正回答这个问题，因为在所有情况下，提问者需要更改属性中的驱动程序设置，所以不是我的情况。 我有一台打印机，可以使订书机的function更好。 不过，我不得不求助于我find的答案之一，那就是使用sendkeys，这是非常不可靠的。 这是我的代码看起来像。 Sub PrintChecklist() Dim myprinter As String Dim PrintersList() As String Dim printer_name As String Dim x As Long Dim wordapp As Word.Application Dim CBC As CommandBarControl Set wordapp = CreateObject("word.Application") wordapp.Documents.Open "C:\Users\XXXXX\Desktop\pool3.doc" wordapp.Visible = True myprinter = […]

Excel忽略VBA打印设置

由于某些原因，Excel在这里忽略了我的“适合1”的规则。 我试图调整缩放，但我所做的任何事情似乎都不起作用。 任何想法都非常欢迎！ 谢谢！ Private Sub CommandButton1_Click() Dim Sel_Manager As String 'Specify headers to be repeated at the top With ActiveSheet.PageSetup .PrintTitleRows = "$5:$9" .PrintTitleColumns = "$B:$M" .Orientation = xlLandscape .Zoom = 70 .FitToPagesWide = 1 .FitToPagesTall = 1 End With 'Manager selection through simple Inputbox Sel_Manager = ComboBox1 'Insert autofilter for worksheet Cells.Select Selection.AutoFilter […]

Excel VBA将打印区域设置为数据的最后一行

我有一个Excel表格，其中列A到K被填满，第一行是标题行。 1-1000行被格式化（边界），A列包含一个公式，当列F中的数据被input时，自动对这些行进行编号。 工作表“CR”受到保护，以防止用户在列A（locking）中input数据。 使用Workbook_BeforePrint函数，我试图将打印区域设置为A到K列和包含数字的列A的最后一行。 我的代码（在对象“ThisWorkbook”）如下所示： Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim ws As Worksheet Dim lastRow As Long Set ws = ThisWorkbook.Sheets("CR") ' find the last row with data in column A lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row ws.PageSetup.PrintArea = ws.Range("A1:K" & lastRow).Address End Sub 但是，当我单击文件 – >打印时，列A到K的范围直到行1000被显示，而不是仅列A中具有数字的行。我在做什么错了？

VB6应用程序在一个位置打印Excel文件的一个副本，但在另一个位置打印两个副本

我们有一个传统的VB6应用程序，使用Excel模板打印工单。 奇怪的是，它在我们的一个地点打印了一份工作订单，而另一份打印了两份。 我说“奇怪”的原因是，这是打印文件的行： objExcelWorkbook.PrintOut Copies:=2, Collate:=True什么使它忽略Copies:=2在一个物理位置，但在另一个服从呢？ 应用程序位于服务器上，因此两个位置都使用相同的版本。 可以不同版本的Excel导致这个？

VBA从Excel工作簿打印网页到PDF？

我有一个Excel工作簿，下面的代码。 它旨在导航到google.co.uk并以PDF格式打印网页。 这工作几乎没有问题。 代码导航到wepbage并打印到PDF并打开PDF文档。 但是，我似乎有问题设置我想要文件保存的位置。 我希望我的PDF文件始终保存在这个位置： G:\QUALITY ASSURANCE\06_SUPPLIER INFORMATION 但由于某种原因，它总是保存到桌面上。 应该有一个保存为打开的对话框，但它永远不会显示。 我已经从一个网站复制这个代码来尝试让我开始，所以我不假装理解所有这一切。 我对VBA很新。 本质上我的目标是让网页自动打印到PDF并保存在正确的文件夹中，而不需要用户提示保存对话框或不必保存。 保存后，我也不希望PDF打开。 这是我的代码。 我怎样才能让我的代码做我需要的？ 码 option Explicit Public Declare Sub Sleep Lib "kernel32" _ (ByVal dwMilliseconds As Long) Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function FindWindowEx Lib […]

用于PDF导出，Excel导出和打印的ReactJS组件

我build立一些ReactJS Table和Report组件基本上将包含<table>数据，一些graphics（ d3 ）和一些文本数据。 我需要提供3个button： 导出为PDF 导出到Excel 打印 有没有可靠的软件包可用于上面的任务使用ReactJS？ 处理这些要求的方法是什么？

VBA打印已保存的多个PDF，但每3秒打印一个？

好，所以我每天打印大约200多个pdf。 我知道我可以控制A并拖动他们的打印机，但每次我这样做，它打印3 5 PDF的。 有没有办法我可以写一个macros，告诉它打印每个pdf，并等待3或5秒，打印下一个？ 到目前为止，我有这样的： 选项显式 声明函数apiShellExecute库“shell32.dll”别名“ShellExecuteA”（_ ByVal hwnd As Long，_ ByVal lpOperation As String，_ ByVal lpFile As String，_ ByVal lpParameters As String，_ ByVal lpDirectory作为string，_ ByVal nShowCmd只要）_ 只要 Public Sub PrintFile（ByVal strPathAndFilename As String） 调用apiShellExecute（Application.hwnd，“打印”，strPathAndFilename，vbNullString，vbNullString，0） 结束小组 子testing（） PrintFile（“C：\ Users \ gutierrezs \ downloads”） 结束小组 它不为我工作，因为我认为上述只是为了search文件名和打印一个。

从SAP打印通过VBA

我有一个脚本放在一起，通过VBA在SAP中完成批量出货。 在每次完成装运后，我希望SAP将完成的页面打印为确认。 Sub STOMacro() Dim App, Connection, session As Object Set SapGuiAuto = GetObject("SAPGUI") Set App = SapGuiAuto.GetScriptingEngine Set Connection = App.Children(0) Set session = Connection.Children(0) If session Is Nothing Then Set session = Connection.Children(Int(ses)) End If If MsgBox("Are you sure you want to acknowledge these STOs?", vbYesNo, "Complete STOs?") = vbNo Then Exit Sub […]