在MDE中動態(tài)設(shè)置報表紙張及頁邊距

tmtony

我使用了代碼來動態(tài)設(shè)置報表的紙張及邊距,但出現(xiàn)一個奇怪現(xiàn)象
打開報表時, 代碼是執(zhí)行了,但沒有任何效果,可是手工打開頁面設(shè)置, 發(fā)現(xiàn)里面的設(shè)置內(nèi)容的確按代碼已經(jīng)修改了,如果這時按一下確定, 報表紙張設(shè)置才有效果


在Open事件中加了如下代碼:
Dim rs As Recordset
Set rs = CodeDb.OpenRecordset("Select * From tblrptPageSize ", dbOpenDynaset)

With Me.Printer
     .PaperSize = Nz(rs!rptPageSize, 9)
     .TopMargin = Round(Nz(rs!rptTop, 0) * 56.7, 2)
     .BottomMargin = Round(Nz(rs!rptBottom, 0) * 56.7, 2)
     .LeftMargin = Round(Nz(rs!rptLeft, 0) * 56.7, 2)
     .RightMargin = Round(Nz(rs!rptRight, 0) * 56.7, 2)
     .Orientation = 2
     .Copies = 1
End With

andymark

應(yīng)該可以,需要用集合的方式打開報表才能改變紙張大小

Public clnClient As New Collection
Public Sub GetPage(ReportName As String)  '讀取頁邊距
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
Dim SQL As String
Dim Rpt As Report

SQL = "SELECT * FROM Dybbcs where bbmc='" & ReportName & "'"

Set Rpt = New Report_Test

Rs.Open SQL, Conn, adOpenDynamic, adLockOptimistic

With Rpt.Printer
        .TopMargin = Rs.Fields("bbsbj")
        .BottomMargin = Rs.Fields("bbxbj")
        .LeftMargin = Rs.Fields("bbzbj")
        .RightMargin = Rs.Fields("bbybj")
        .papersize = acPRPSA4
End With

clnClient.Add Item:=Rpt, Key:=CStr(Rpt.Hwnd)
Rpt.Visible = True

Set Rs = Nothing
Set Conn = Nothing
End Sub

打開報表時
GetPage "test"

我這里測試OK

andymark

以前做的例子 , 能動態(tài)設(shè)置的
MDE保存調(diào)用頁邊距的例子

tmtony

andymark兄,好像也不行,跟我那個代碼一樣的問題, 更新為A4紙或其它設(shè)置,保存后再進(jìn)去還是未更新到

咱家是貓

確實是這樣,我也正遇到這個問題,與tmtony描述得一樣,設(shè)置橫向豎向也是如此.

xinbao

好像 是  解決不了

tmtony

使用代碼來模擬一下 打開頁面設(shè)置的功能. 這個方向可能行

tmtony

學(xué)習(xí)一下

tmtony

andymark兄,還是不行
在執(zhí)行set rpt=new report_test
時,不斷死循環(huán).
可能是新對象時就會遞歸執(zhí)行 getpage
我把附件傳上來

120HZQ

andymark兄,還是不行
在執(zhí)行set rpt=new report_test
時,不斷死循環(huán).
可能是新對象時就會遞歸執(zhí)行 getpage
我把附件傳上來