页面设置模块代码分享% z! r, D2 \0 i- S1 n9 j0 G* d
Dim up, dn, le, ri, si, liAs Single , co As string’定义边距及页面函数
/ z* u9 f' T2 q: a" y) f Sub ymszmk(strName As String) ’页面设置模块On Error GoTo Err_ymszmkIf Nz(DCount("*", "REPORTLIP", "REPORT=’" & strName & "’")) = 0 ThenMsgBox "没有此报表的页面设置,请设置", , "提示"Exit SubEnd Ifup = DLookup("REUP", "REPORTLIP", "REPORT=’" & strName & "’")dn = DLookup("REDOWN", "REPORTLIP", "REPORT=’" & strName & "’")le = DLookup("RELEFT", "REPORTLIP", "REPORT=’" & strName & "’")ri = DLookup("RERIGHT", "REPORTLIP", "REPORT=’" & strName & "’")li = DLookup("RECOL", "REPORTLIP", "REPORT=’" & strName & "’")si = DLookup("RESIZE", "REPORTLIP", "REPORT=’" & strName & "’")co = IIf(DLookup("RECOURES", "REPORTLIP", "REPORT=’" & strName & "’") Like "横向", acPRORLandscape, acPRORPortrait)Dim prt As Printer* W3 S8 i9 y9 }7 R" E9 {! a1 g
Set prt = Application.Printers(0)# }2 b9 S" o( m9 V5 u
prt.TopMargin = up * 56.7 ’上prt.BottomMargin = dn * 56.7 ’下prt.LeftMargin = le * 56.7 ’左prt.RightMargin = ri * 56.7 ’右prt.ItemsAcross = li ’列prt.PaperSize = si ’大小prt.Orientation = co
3 x& q; h( g" p- I DoCmd.OpenReport strName, acPreviewReports(strName).Printer = prt% S* N2 J. i$ U
Exit_Err_ymszmk: Exit Sub4 J4 P; G- K0 H/ T4 w
Err_ymszmk: If Err = 5 Then MsgBox "没有打印机，请先安装打印机！", , "提示" Exit Sub End If MsgBox Err.Description Resume Exit_Err_ymszmkEnd Sub |
发表于 2012-7-31 22:26:35
