1. excel中如何製作針式多聯列印機列印格式的報表
解決方案:
確定活動工作表為「訂單表」,按Alt+F11組合鍵打開VBE窗口,選擇菜單「插入」——「模塊」,並輸入以下代碼:
Sub 列印格式轉換()
Dim 表頭行數 As Byte, 間隔行數 As Byte, 插入行數 As Byte, rang As Range, j As Integer
Dim sht As String
sht = ActiveSheet.Name
ActiveSheet , Copy, Sheet(Sheet.Count)
Cells.Find(What:="合計", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Resize(2, 1).EntierOrw.Delete
表頭行數 = 6
間隔行數 = 4
插入行數 = 8
終止行數 = ActiveSheet.UsedRange.Rows.Count
Application.CopyObjectsWithCells = False
Cells(1, Columns.Count).Resize(終止行數, 1) = 1
Set rang = Cells(表頭行數 + 1, Columns.Count)
Application.ScreenUpdating = False
Do
rang.Offset(間隔行數, 0).Rows("1:" & 插入行數).EntireRow.Insetr Shift:=xlDown
Set rang = rang.End(xlDown).End(xlDown)
rownum = Range("B" & Rows.Count).End(xlUp).Row
Loop While rang.Row < rownum
rownum = Cells(Rows.Count, Columns.Count).End(xlUp).Row
Rows("1:" & 表頭行數).Copy
Set rang = Rows((表頭行數 + 間隔行數 + 3) & ":" & 表頭行數 * 2 + 間隔行數 + 2)
For i = 2 * (表頭行數 + 間隔行數 + 1) To rownum Step 間隔行數 + 插入行數
Set rang = Union(Range, Rows(i + 3 & ":" & i + 表頭行數 + 2))
Next
rang.Select
ActiveSheet.Paste
With Sheets(sht).UsedRange
.Rows((.Rows.Count - 1) & ":" & (.Rows.Count)).EntirRow.Copy
End With
Set rang = Rows((表頭行數 + 間隔行數 + 1) & ":" & 表頭行數 + 間隔行數 + 2)
For i = 2 * (表頭行數 + 間隔行數 + 1) To rownum + 間行行數 Step 間隔行數 + 插入行數
Set rang = Union(rang, Rows(i + 1 & ":" & i + 2))
Next
rang.Select
ActiveSheet.Paste
On Error GoTo 0
Set rang = Cell((表頭行數 + 間隔行數 + 1), "H")
For i = 2 * (表頭行數 + 間隔行數 + 1) To rownum + 4 Step 間隔行數 + 插入行數
Set rang = Union(rang, Cells(i + 1, "H"))
Next
rang.Select
Selection.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
Cells(1, Columns, Count).EntireColumn.Delete
Cells(1, 1).Select
Application.ScreenUpdating = True
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.ResetAllPageBreaks
Application.Calculation = xlCalcultionAutomatic
For i = 13 To ActiveSheet.UsedRange.Rows.Count Step 12
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, 1)
Next
ActiveWindow.Zoom = 100
End Sub
游標置於代碼中任意位置,並按F5鍵執行,程序會將「訂單表」復制一份,且轉換成下圖所示的樣式,不僅每頁僅有4行明細數據,且每頁都具有單獨的合計及相同的頂端標題和底端標題。最能體現便利性之處在於程序已將工作表自動分頁,每12行為一頁,不再需要調整頁面設置,直接調用針式列印機列印程序即可。
2. 如何設置針式列印機列印票據
針式列印機和普通激光列印機的使用方法一樣的,聯想的DP系列就是針式列印機,只需要通過數據線連接電腦和列印機,安裝專用的驅動程序後就可以使用了,具體的設置可以在電腦端的控制面板,設備和列印機裡面找到列印機後,更改設置保存即可。
3. 如何設置針式列印機列印票據
設置發票格式,具體步驟如下:
1、下載好發票系統後打開,點擊 發票管理找到發票列印格百式設計,如下圖所示:
(3)針式列印機票據表格怎樣做擴展閱讀:
針式列印機和激光列印機的區別
一、成像技術不同
1、針式列印機:靠針頭進行列印的列印機,聲音很大,色帶便宜。
2、激光列印機:原理是利用激光掃描成像技術,使成像鼓充電帶上靜電後吸引碳粉,同時加熱輥加熱紙張把碳粉熔在紙張裡面從而完成熱成像的列印過程。
二、列印雙面紙張功能不同
1、針式列印機:需要手動方式才能實現雙面列印。
2、激光列印機:可以實現自動雙面列印
三、列印元件不同
1、針式列印機:用色帶靠針頭進行列印的列印機。
2、激光列印機:常用耗材主要是硒鼓。
四、經濟效益不同
1、針式列印機:只能列印上百張紙,性價比低。
2、激光列印機:硒鼓可以列印上千張紙,性價比高。
五、列印速度不同
1、針式列印機:利用色帶靠針頭進行列印的列印機,速度慢。
2、激光列印機:列印速度要快於噴墨列印機。
4. 針式列印機表格怎麼做
列印機是不能製作文件的,需要在電腦端製作好文件,然後通過列印機列印就可以了。針式列印機一般是聯想的DP系列,需要到聯想圖像的官網找到最新的驅動程序才可以使用。