小松鼠及拾荒老人的家

EXCEL 合併列印 套表列印 郵局貼紙寄件單

前四集

http://aney22.pixnet.net/blog/post/45694645
EXCEL 合併列印 套板列印進階教學 step by step 用點陣印表

http://aney22.pixnet.net/blog/post/45709522
EXCEL 合併列印二、範例、華南銀行存款憑條

http://aney22.pixnet.net/blog/post/47885190
EXCEL 自動化 列印喜帖 列印信封

http://aney22.pixnet.net/blog/post/47880666
EXCEL 自動化 大宗郵件存根2聯單 交寄大宗限時掛號及掛號函件

http://aney22.pixnet.net/blog/post/48324846
EXCEL 合併列印 套表列印 郵局貼紙寄件單

因為老人的字太醜，郵局的寄件單太小，每每寄小包裹都是麻煩。

所以我決定用印表機來列印。

並完成套表列印的資料。

一、先用印表機複製幾份 郵局貼紙寄件單。

※寄件單中間是沒有膠的，是空的，和離形紙是分開的

所以只能直進直出，不能橫的進紙，會有很大機會卡紙。

二、用尺在複製的寄件單上將格子、欄位、尺寸，標示出來。

三、用 
列高公式：I1 =H1 * 72 / 2.36
欄寬公式：A16=(A15-0.14) * 72 / (2.54 * 6)

這兩個公式，將欄位的尺寸算出來，並修改欄寬、列高

四、將格線加入、標示的文字標入。

五、列印、微調。這個簡單的表格，我列印了五次，完成。

六、最後的成品就是這樣。

七、巨集公式：這是個十分簡單的成果。只有兩個簡易的公式

在地址列按下 CTRL +b 就會呼叫指定的公式。

Private Sub Workbook_Open()
        Application.OnKey "^b", "Print_Envelope_Sticker"            'Ctrl+ b 
End Sub

將指定的行 ，套表到指定的欄位，並列印。

Option Explicit
Sub Print_Envelope_Sticker()
'******************************************************************
'在Sheets("地址")中，用滑鼠選擇要印列的行，執行此程式，即可套表列印
'******************************************************************
        Dim E As Range
  
        Sheets("地址").Activate
                For Each E In Selection.EntireRow

                                With Sheets("PrintPage")                                  'copy data
                                        .Range("A1:F13").Name = "Print_Area"            '設定印列範圍
                                        
                                        .[D2] = E.Range("B1")               '郵遞區號：
                                        .[C3] = E.Range("C1")                           '地址：
                                        .[C5] = E.Range("D1")               '姓名：
                                        .[D6] = E.Range("E1")               '電話：
                                        .[E7] = E.Range("A1")               '編號：
                                        .[E8] = E.Range("F1")               '寄貨日期：
                                        .[C12] = E.Range("G1")              '內容物：
                                End With

                                        Sheets("PrintPage").PrintOut                      '印列
                                        Sheets("PrintPage").Activate
                Next
End Sub

相關檔案下載：Google Driver 密碼：aney22 不準來跟我『要求存取權』，直接下載都不會嗎？