计算机页面设置代码,计算机二级考试Access辅导:页面设置模块代码分享

Dim up, dn, le, ri, si, liAs Single , co As string’定义边距及页面函数

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

Set prt = Application.Printers(0)

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

DoCmd.OpenReport strName, acPreviewReports(strName).Printer = prt

Exit_Err_ymszmk: Exit Sub

Err_ymszmk: If Err = 5 Then MsgBox "没有打印机,请先安装打印机!", , "提示" Exit Sub End If MsgBox Err.Description Resume Exit_Err_ymszmkEnd Sub

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/393585.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

让我们了解Set及其在JavaScript中的独特功能

by Asif Norzai通过Asif Norzai 让我们了解Set及其在JavaScript中的独特功能🎲 (Lets learn about Set and its unique functionality in JavaScript 🎲) 设置🎲 (SET 🎲) ES2015/ES6 gave us a lot of useful tools and feature…

C语言第二次博客作业---分支结构

一、PTA实验作业 题目1:计算分段函数[2] 本题目要求计算下列分段函数f(x)的值: 1.实验代码 double x,result;scanf("%lf",&x);if(x>0){resultsqrt(x);}else{resultpow(x1,2)2*x1/x;}printf("f(%.2f) %.2f",x,result); 2 设计…

oracle+数据到+mysql数据库乱码_oracle数据mysql数据库乱码

{"moduleinfo":{"card_count":[{"count_phone":1,"count":1}],"search_count":[{"count_phone":4,"count":4}]},"card":[{"des":"阿里云数据库专家保驾护航,为用户…

ajax 不执行

1、get形式访问: 一个相同的URL 只有一个结果,所以 第二次访问的时候 如果 URL字符串没变化 浏览器是 直接拿出了第一次访问的结果,post则不会 解决办法: 1、urlnew Date(); (每次访问时url不同) 2、 type : get,   …

leetcode870. 优势洗牌(贪心算法)

给定两个大小相等的数组 A 和 B,A 相对于 B 的优势可以用满足 A[i] > B[i] 的索引 i 的数目来描述。 返回 A 的任意排列,使其相对于 B 的优势最大化。 示例 1: 输入:A [2,7,11,15], B [1,10,4,11] 输出:[2,11,…

Mysql中行转列和列转行

一、行转列即将原本同一列下多行的不同内容作为多个字段,输出对应内容。建表语句DROP TABLE IF EXISTS tb_score; CREATE TABLE tb_score( id INT(11) NOT NULL auto_increment, userid VARCHAR(20) NOT NULL COMMENT 用户id, subject VARCHAR(20) COMMENT…

OSChina 周四乱弹 ——妹子喜欢的是程序员 这是标准……

2019独角兽企业重金招聘Python工程师标准>>> Osc乱弹歌单(2017)请戳(这里) 【今日歌曲】 一叶孤鸿 :分享Nanaka的单曲《いのちの名前(Cover 木村弓)》 《いのちの名前(C…

阿里薪资谈判技巧_如何像专业人士一样处理技术职业中的薪资谈判

阿里薪资谈判技巧by Aline Lerner通过艾琳勒纳(Aline Lerner) 如何像专业人士一样处理技术职业中的薪资谈判 (How to handle salary negotiations in your tech career like a pro) 确切地谈薪水时要说些什么 (Know exactly what to say when negotiating your salary) There …

xp系统sql服务器怎么找,SQL文件在winxp系统下怎么打开

很多用户不知道SQL文件是什么?SQL文件怎么打开?我们存储数据时候经常会遇到SQL文件,如果你不知道WinXP系统SQL文件是什么以及怎么打开的话,那就赶紧看看小编整理的以下文章内容吧!SQL文件是什么?学习编程的同学可能都知道SQL是一种高级的非过程化的编…

Silverlight 设计器加载错误

每次打开silverlight页面出如下错误 然后设计器不能将页面加载出来 最后找了蛮多资料的 感觉这个原因有可能:“控制面板的添加删除程序那里,选中Microsoft Silverlight,看看他的版本,是否与所装的SDK的版本号一致。就算两个版本号…

mysql索引优化实际例子_MySQL索引优化的实际案例分析

Order by desc/asc limit M是我在mysql sql优化中经常遇到的一种场景,其优化原理也非常的简单,就是利用索引的有序性,优化器沿着索引的顺序扫描,在扫描到符合条件的M行数据后,停止扫描;看起来非常的简单&am…

leetcode441. 排列硬币(二分查找)

你总共有 n 枚硬币,你需要将它们摆成一个阶梯形状,第 k 行就必须正好有 k 枚硬币。 给定一个数字 n,找出可形成完整阶梯行的总行数。 n 是一个非负整数,并且在32位有符号整型的范围内。 示例 1: n 5 硬币可排列成以下几行: …

【洛谷 P2051】 [AHOI2009]中国象棋(DP)

题目链接 首先想到状压dp,但是\(n,m\)高达100,怎么压? 容易发现,每行每列最多两个象棋,否则就直接gg了。 一个巧妙的设置状态的方式是,只需要记录到当前行有多少列是放了1个炮和2个炮。 然后每一行有3种选择…

循环 直到 python_如果您在Python中存在慢循环,则可以对其进行修复……直到无法解决为止...

循环 直到 pythonby Maxim Mamaev马克西姆马马耶夫(Maxim Mamaev) Let’s take a computational problem as an example, write some code, and see how we can improve the running time. Here we go.让我们以一个计算问题为例,编写一些代码,看看如何改…

阿里云视频点播解决方案使用教程

2019独角兽企业重金招聘Python工程师标准>>> 课程介绍 视频点播(ApsaraVideo for VoD,简称VoD)是集视频音视频采集、编辑、上传、自动化转码处理、媒体资源管理、分发加速于一体的一站式音视频点播解决方案。 产品详情&#xff1a…

云服务器安装操作系统后如何连接,服务器如何安装操作系统

服务器如何安装操作系统 内容精选换一换如果您需要使用毕昇编译器,则需要先在服务端安装毕昇编译器。毕昇编译器基于开源LLVM开发,并进行了优化和改进,同时将flang作为默认的Fortran语言前端编译器,是针对鲲鹏平台的高性能编译器。…

换行符

非原创windows保留\r\n作为换行符的原因: 回车键为什么叫回车键,大家有想过没有,字面意思是回去的车子。 第一台打印机,每一行打印完了之后在打印第二行之前,这个喷墨的玩意儿需要先回到这一行的行首,这叫回…

leetcode剑指 Offer 53 - II. 0~n-1中缺失的数字(二分查找)

一个长度为n-1的递增排序数组中的所有数字都是唯一的,并且每个数字都在范围0~n-1之内。在范围0~n-1内的n个数字中有且只有一个数字不在该数组中,请找出这个数字。 示例 1: 输入: [0,1,3] 输出: 2 代码 class Solution {public…

python 0基础起步学习day2

元组:戴上了枷锁的列表 元组是不可改变的,元组是不能随意改变内部的元素的 元组和列表很像,它可以看成是不可修改的列表 所以创建元祖逗号是关键 因为(8,)是元组,这里*就不再是乘号,而是重复拷贝符【重复操作符】 直接…

react中的状态机_在基于状态图的状态机上使用React的模式

react中的状态机by Shawn McKay肖恩麦凯(Shawn McKay) 在基于状态图的状态机上使用React的模式 (Patterns for using React with Statechart-based state machines) Statecharts and state machines offer a promising path for designing and managing complex state in apps…