生成在Excel

多線在我的excel多頁文檔我有多個行是這樣的：生成在Excel

Name Age Tel 
John 5 12345677 
Peter 10 4547567 
Mary 6  46u7687867

我想知道怎樣才能從Excel到多個發票多文檔這樣的：

第1頁：

Certification of XXXXX 

John  Age 5

第2頁：

Certification of XXXXX 

Peter  Age 10

page3：

Certification of XXXXX 

Mary  Age 6

謝謝！

來源

2013-02-01 fkingan

您需要產生的文檔是Excel或...哪種格式？ –

@fkingan'1.'你的意思是多個「文件」？ '''你有沒有'Excel模板'作爲你的發票？ '''你在Excel中有很多記錄嗎？ '''你打算創建多少文件？ ''5.這可能是一種打印工作嗎？ – bonCodigo

我使用生成的文檔進行打印，所以所有格式都很好。 @bonCodigo Excel中有大約40條記錄，我需要爲Excel中的每一行生成一個文檔。我已經有了一個Excel模板，爲了打印證書，我必須每個月複製和解析大約40次。我正在尋找自動化過程的方法。 – fkingan

假設上面的輸入&評論，下面的代碼將做的工作：

Sub ListPrinting() 

Dim i As Long 

i = 1 

For i = 2 To ThisWorkbook.Sheets(1).Range("A1").CurrentRegion.Rows.Count 

    ThisWorkbook.Sheets("Invoice").Range("F40").Formula = ThisWorkbook.Sheets(1).Cells(i, 1).Formula 
    ThisWorkbook.Sheets("Invoice").Range("I38").Formula = ThisWorkbook.Sheets(1).Cells(i, 2).Formula 
    ThisWorkbook.Sheets("Invoice").Range("I9").Formula = ThisWorkbook.Sheets(1).Cells(i, 3).Formula 
    ThisWorkbook.Sheets("Invoice").PrintOut Copies:=1, ActivePrinter:="pdfFactory Pro on FPP4:" 'Specify your printer 

Next i 

MsgBox i - 2 & " invoice(s) printed." 

End Sub

請注意：

應指定所需打印機的名稱 - 使用宏記錄和剛在「打印」對話框的可用打印機列表中選擇它。
列表中的記錄數量實際上是無限的......以及紙張和墨水/碳粉不是）））所有這些將從第2行開始打印，直至list表中找到的最後一個非空字符串。
試驗研究1-2項代碼，以避免損紙）

樣品文件共享（代碼測試以及）：https://www.dropbox.com/s/296e200496gd7gb/ListPrinting.xlsm

P.S.也許你應該根據需要重新設置日期字段的格式 - 它使用區域設置，因此會以不同的方式顯示給你。

來源

2013-02-01 19:11:41

謝謝。你真的救了我的一天。 :) – fkingan

@fkingan高興地幫助，享受快速打印！） –

-1

，用於從多個線在Excel中多頁文檔行應流一些步驟和知道，你可以訪問http://fetchflow.com/support/question/How-do-I-create-a-new-purchase-order.html

來源

2013-08-05 09:27:45

請注意，只有鏈接的答案是不鼓勵的，所以答案應該是搜索解決方案的終點（而另一個參考文獻的中途停留時間，傾向於隨着時間的推移變得陳舊）。請考慮在此添加獨立的摘要，並將鏈接保留爲參考。 – kleopatra

嘗試提供一些解釋，而不是唯一的鏈接... – NREZ

回答

相關問題