返回列表 上一主題 發帖

[發問] 如何將A5紙張格式一次列印於A4紙張直接產生二份表格

[發問] 如何將A5紙張格式一次列印於A4紙張直接產生二份表格

各位大大好:

  小弟已完成一份表格,讓使用者可
由資料庫取出指定資料並填入表格內
的欄位位置。
  此表格預設可列印 A5紙張,由於
須印此表格為一式二份,又公司影印機
卡夾內為 A4 紙張;正好符合 A5 X 2= A4
但小弟一直無法以一份表格直接在 A4 紙張
印出此表格為二份。
  小弟想請問此情形是否須符合下列那一
種方法才可逹成上述的須求。

一、可在版面設定來逹成一張A4紙
    直接印列成二份表格

二、先完成此份表格再複製至另一工作表
    連續複製二次來逹成列印於A4紙張
    逹成印成二份表格

三、先在此工作表製成二份空白表格,將
    由資料庫取出的資料完成填入一份表格
    內,並於列印時再將第一份表格的
    資料填入另一份空白的表格內在一起列印

如是第一種方式時應如何設定,
如是第二、三種方式時VBA語法又如何
設計呢?

謝謝各位大大!

PRINTTEST.rar (11.11 KB)

回復 2# luhpro


    大大您好:

謝謝您的說明
您有提到
1. 將要列印的兩頁資料放在一起.
2. 設定要列印的區域範圍:
其實小弟在工作表上顯示二個
要列印的表格,是不知要如何排除另一個
表格。就能同時在一張A4紙直接列
印出二份表格出來。讓使用者也不會
感覺有多出一份表格。

小弟昨天先以新增一工作表,
並在該表上增設二份表格。
等到該使用者要填的表格
完成填寫之後,再設定一按鈕
讓使用者列印,同時也將使用者的
填寫表格資料再轉寫至新增的二份表格內
完成列印工作。

小弟是希望能減少上述的一些步驟。

感恩大大!

TOP

回復 4# GBKEE


    版主大大您好:

   感謝您的相助,此方法實在
太完美。唯獨有一語法小弟也
上網找了很多範例說明
Application.Caller之用法
卻仍無法領會,網路上的範例
也不知如何執行。
想 請版主大大能開示指點迷津
application caller之應用
及其含意為何?

版主語法如下:
ActionShape = .Shapes(Application.Caller).Name  '執行此程式的按鈕名稱

網路上的範例:
Function Sheetname()
       Application.Volatile
       Sheetname = Application.Caller.Parent.Name
End Function

Function Test()

      Application.Volatile
      ' Returns the cell one column to the left of the active cell. Note
      ' that the active cell is not necessarily the cell that is calling
      ' the function.
      Test = ActiveCell.Offset(0, -1).Value
   End Function

change it to the following:

   Function Test()
      Application.Volatile
      ' Returns the cell one column to the left of the cell that is
      ' actually calling the function.
      Test = Application.Caller.Offset(0, -1).Value
   End Function

感恩大大!!

TOP

回復 6# GBKEE


    感謝版主大大
提供諸多範例。
  小弟會利用週末的時間
用心學習相關範例的變化。

就感心!!
感恩大大。

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題