A3的版面如何變A4

home8486

我用A3的橫式製作一個表格，請問各位先進我想改為A4的版面要如何做，但不是從列印的地方去更改(A3縮小為A4)?
抱歉，我所畫的表格裡面已經有打文字資料了，所以我從A3改為A4 的時候，整個文字都跑掉了。

PD961A

回復 1# home8486


    可否請您上傳簡單的範例

mark15jill

[/code]回復 1# home8486

    如同版大說的 能否告知您使用的OFFICE版本 以及 附檔???

基本上 從 A3 變 A4 本來格式就會有所跑掉  因為紙張大小不同

該預設之邊界 及 行數 也會跟著改變

以下是我用巨集 (2007) 版本 所紀錄的更改A3 A4 程式碼..

[code]Sub 巨集2()
'
' 巨集2 巨集
'
'
    WordBasic.PageSetupMargins Tab:=1, PaperSize:=8, TopMargin:="2.54", _
        BottomMargin:="2.54", LeftMargin:="3.17", RightMargin:="3.17", Gutter:= _
        "0", PageWidth:="29.7", PageHeight:="42", Orientation:=0, FirstPage:=0, _
        OtherPages:=0, VertAlign:=0, ApplyPropsTo:=4, FacingPages:=0, _
        HeaderDistance:="1.5", FooterDistance:="1.75", SectionStart:=2, _
        OddAndEvenPages:=0, DifferentFirstPage:=0, Endnotes:=0, LineNum:=0, _
        CountBy:=0, TwoOnOne:=0, GutterPosition:=0, LayoutMode:=2, DocFontName:= _
        "", FirstPageOnLeft:=0, SectionType:=1, FolioPrint:=0, ReverseFolio:=0, _
        FolioPages:=1
    Selection.TypeText Text:="目前是A3"
  
  Selection.TypeParagraph
    WordBasic.PageSetupMargins Tab:=1, PaperSize:=9, TopMargin:="2.54", _
        BottomMargin:="2.54", LeftMargin:="3.17", RightMargin:="3.17", Gutter:= _
        "0", PageWidth:="21", PageHeight:="29.7", Orientation:=0, FirstPage:=0, _
        OtherPages:=0, VertAlign:=0, ApplyPropsTo:=4, FacingPages:=0, _
        HeaderDistance:="1.5", FooterDistance:="1.75", SectionStart:=2, _
        OddAndEvenPages:=0, DifferentFirstPage:=0, Endnotes:=0, LineNum:=0, _
        CountBy:=0, TwoOnOne:=0, GutterPosition:=0, LayoutMode:=2, DocFontName:= _
        "", FirstPageOnLeft:=0, SectionType:=1, FolioPrint:=0, ReverseFolio:=0, _
        FolioPages:=1
    Selection.TypeText Text:="目前是A4"
End Sub

home8486

感謝PD961A、 mark15jill兩位先進的指教，因最近較忙，現在才回覆，問題朋友已幫忙解疑，但還是感謝兩位的指教，謝謝!!

tatsun

已解決的話可不可以提供參考???