MDE或ACCDE在Access報(bào)表保存紙張大小及頁(yè)面邊距

當(dāng)Access生成MDE或ACCDE格式之后，在Access報(bào)表保存紙張大小及頁(yè)面邊距一直是Access數(shù)據(jù)庫(kù)用戶心中的痛。

下面提供版主們的一些解決報(bào)表如何保存打印邊距的方法

andymark:

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

Public clnClient As New Collection
Public Sub GetPage(ReportName As String)  '讀取頁(yè)邊距
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

還可參考這里的Access源碼示例: 以前做的例子 , 能動(dòng)態(tài)設(shè)置的:MDE保存調(diào)用頁(yè)邊距的例子

mde保存頁(yè)邊距XP0803174.rar