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 不準來跟我『要求存取權』,直接下載都不會嗎?

創作者介紹
創作者 aney22 的頭像
aney22

小松鼠及拾荒老人的家

aney22 發表在 痞客邦 留言(0) 人氣()