Tag: 打印

打印（获取打印输出）arrays列表中的元素

场景： 我正在做一个小的应用程序来提取大量的Excel工作表数据，并对其进行sorting然后保存，然后如果需要打印它。 我正在使用JavaFX for UI and Apache POI来读取和写入Excel数据。 我把我提取的数据放到一个ArrayList中，我可以做保存部分。 首先，我想把Arraylist元素放到TextArea中，然后打印出来。 但是将每个元素附加到TextArea需要很多时间（考虑大约100 000个单元格数据）。 SI认为直接从ArrayList打印。 问题：是否可以从数组列表中进行打印？ 以下任何一种select都是可能的？ 这个代码可以像TextArea一样从UI中打印出来。 if (job != null && job.showPrintDialog(ProjectNavigation.scene.getWindow())){ boolean success = job.printPage(node); if (success) { job.endJob(); } } 但问题是我没有在我的用户界面的数据。 选项我想： 创build一个临时文件并打印它删除该文件 将数组列表转换成东西，然后打印出来。 任何图书馆这样做？ 任何build议将有所帮助。 谢谢。 PS： 正如Khaled Khnifer在他的回答中提到的，我使用ListView来显示UI中可以打印数据的项目。

主动x参考的VBA麻烦

我想为打印机编程一个控件。 打印机的界面是“Weber Packaging Solutions”的“Legitronic”软件。 在vba-activex手册中写道，一个实例的构build过程如下： 对于后期绑定： Dim MyLabel as Object Set MyLabel = CreateObject("Legi32.label") 早期绑定： Dim MyLabel as Legi32.label Set MyLabel = CreateObject("Legi32.label") 我提到了界面的types库（我的同事告诉我这是正确的参考，因为他在过去也做了一个程序，并且对他有效） 但每次我执行程序时，我都会得到运行时错误“429”：ActiveX组件不能创build对象。 我使用Microsoft Excel工作表的macros（.xlsm） 你知道这个问题还是知道，怎么解决？ 提前致谢！

vba打印出三维数据

如何在不知道其强度的情况下显示一个三维数组？ 如果variables名是DataSet。 但我不确定高度和长度。 在macros观上， msgbox(DataSet) 'type mismatch msgbox(DataSet(0,0,0))'subscript out of range 或举一个一般的例子。 感谢您的帮助，谢谢。

在excel中过滤后打印可见区域的macros

我有一个基于column A值过滤表的macros。 现在，我只希望在filter后面打印可见的行，但是遗憾的是，它会打印所有行，包括在filter中隐藏的顶行和底行。 在我的工作表中，有来自Column A:I数据Column A:I ，但是打印区域应该只是Columns C:I – 过滤后的可见行。 以下是我迄今为止所尝试的代码，但都无效： 代码1： ActiveSheet.PageSetup.printarea = Range("C3:I81000").Rows.SpecialCells(xlCellTypeVisible) 代码2： Dim lastrow As Long lastrow = ActiveSheet.UsedRange.Rows.Count Range(Cells(3, 3), Cells(lastrow, 9)).Select ActiveSheet.PageSetup.printarea = Selection.Address 还有其他build议吗？

通过DV范围循环并发送到打印机

我有一些代码循环通过数据validation列表，并打印页面作为PDF文件，我无法弄清楚如何调整它只是发送页面到打印机，而不是打印为PDF。 Sub Button11_Click() Application.ScreenUpdating = False Dim cell As Range Dim rgDV As Range Dim DV_Cell As Range Dim ws As Worksheet Dim strPath As String Dim myFile As Variant Dim strFile As String Dim LA As Boolean Dim A As Integer Dim B As Integer Set DV_Cell = Range("B1") Set rgDV = Application.Range(Mid$(DV_Cell.Validation.Formula1, 2)) […]

在VB中select多张图纸

我想select多个工作表打印除了一本书以外的所有工作表，到目前为止，我的代码如下所示，通过macroslogging： Sub Print_All() ' ' Print_All Macro Sheets(Array("Class List", "Blank1", "Blank2", "Blank3", "Blank4", "Blank5", "Blank6" _ , "Blank7", "Blank8", "Blank9", "Blank10", "Blank11", "Blank12", "Blank13", "Blank14", _ "Blank15", "Blank16", "Blank17", "Blank18", "Blank19", "Blank20", "Blank21", "Blank22" _ , "Blank23", "Blank24")).Select Sheets("Blank2").Activate Sheets(Array("Blank25", "Blank26", "Blank27", "Blank28", "Blank29", "Blank30")). _ Select Replace:=False Sheets(Array("Blank1", "Blank2", "Blank3", "Blank4", "Blank5", "Blank6", "Blank7", […]

VBA打印在4行的组

我有一个非常具体的电子表格，其中包含所有员工的工资/奖金。 每个员工自己有4行（薪金/奖金/薪金％增值/奖金占工资的百分比）。 我遇到的问题是，一些pipe理人员将其员工中断，如果它去多个页面，所以我把它切换到适合1×1，但现在显然它是太浓缩了。 有没有办法让macros组打印4行？ 或者可以这样做，它为同一页上的每个员工打印4行（薪水/奖金/工资％增值/奖金为工资的百分比）提前谢谢！ Private Sub CommandButton1_Click() Dim Sel_Manager As String 'Specify headers to be repeated at the top With ActiveSheet.PageSetup .PrintTitleRows = "$5:$10" .PrintTitleColumns = "$B:$M" .Orientation = xlLandscape .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With 'Manager selection through simple Inputbox Sel_Manager = ComboBox1 'Insert autofilter for worksheet Cells.Select […]

Excel到CSV仅使用VBA打印特定列

我有一个Excel电子表格有多个列（AG）与信息在行1-26。 我正在尝试使用VBA脚本来只转换列A和D到CSV文件列A和B.我已经能够转换列A和D和A是在正确的位置（列A行1-26 ），但是列D结束于列D和行27-52。 我错过了将excel中的D列移动到CSV中的B列？ 任何帮助将不胜感激！ 看到我目前的代码如下： Dim file As Integer Dim filepath As Variant Dim filename As Variant Dim Row As Integer Dim Col As Integer Dim Data1 As String Dim Data2 As String Dim Line As String Dim LineValues() As Variant Dim OutputFileNum As Integer Dim PathName As String Dim SheetValues() As Variant file […]

在一份工作中多次打印相同的工作表

我试图多次打印同一个工作表作为一个打印作业。 我有一个工作表，具有列ID ， FirstName ， LastName和Age 。 我有另一个工作表，就像一个表单。 用户select一个ID，其余的列自动填充（ First Name, LastName, and Age ）。 我已经有了一些代码，一旦用户从下拉菜单中select了他们想要的ID，工作表会自动更新该ID的信息。 我正在试图添加一个macros将打印每个ID相同的工作表。 所以，如果我有2个ID例如： 代码将使用我现有的macros用ID1更新工作表 打印工作表 使用我的代码来更新ID2的工作表 打印工作表 最后，我想有一个印有两张纸的作业。 我已经知道我可以使用下面的代码分别打印工作表： Sub PrintForms() dim myID as integer 'myID gets the last ID numer myID = sheets("CondForm").Range("A1").Value for i = 1 to myID 'this just takes the ID number from i and updates […]

如何添加不打印选项在VBA内的Excelmacros？

我在Excel中有macrosbutton，它具有以下代码并相应地打印 Private Sub CommandButton10_Click() MsgBox "SET YOUR PRINTER & CLICK OK" Range("B18:B58").Select Selection.Copy ActiveWindow.SmallScroll Down:=-33 Range("bf18").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("A1").Select ActiveSheet.PageSetup.PrintArea = "$L$775:$AN$818" 'ActiveWindow.SelectedSheets.printout Copies:=1, Collate:=True 'ActiveSheet.PageSetup.PrintArea = "$ay$520:$be$523" 'Range("A1").Select 'ActiveWindow.SelectedSheets.printout Copies:=1, Collate:=True ActiveWindow.SelectedSheets.PrintPreview End Sub 。 如果button点击这将直接打印到默认打印机，但我想作出取消打印机的选项，如果有人点击button可以回去..也可以用上面的代码 你呢