程序员经验分享-hwhale

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

2023-11-15

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

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

计算机页面设置代码

计算机页面设置代码,计算机二级考试Access辅导：页面设置模块代码分享 的相关文章

  • 从文本文件读取文件名，并删除指定路径下的文件

    void deleteFiles const QString path const QString delFileNameTxt const QString recycleBinPath QStringList delFileNames Q

  • 很多软件安装时为什么需要设置环境变量

    设置环境变量的目的 背景 在cmd中想要执行net start mysql等操作命令 必须先cd到bin文件所在目录 如D mysql mysql x x xx winx64 bin 那么每次打开mysql 都要输入那么多指令切换目录是不是

  • ME2M/ME3M增强 - ALV显示里增加字段(原)

    i s 本帖最后由 lulu1212 于 2012 10 12 11 23 编辑 之前用户提出要在ME2M ME3M里加字段 网上找了些资料发现是在结构里APPEND字段就可以了 结构名是 MEREP OUTTAB PURCHDOC 例如

  • RH850学习笔记

    这是一篇关于瑞萨RH850系列单片机的心得 网上关于这方面的资料特别少 可能是使用的人较少的原因吧 由于工作的原因 这段时间接触了这款单片机 所以写下了这篇博客 希望能给大家一些帮助 R7F701023 1023F1L是我最早接触的瑞萨MC

  • 算法笔记——动态规划

    算法笔记 动态规划 动态规划是一个非常灵活的算法 动态规划本身不难 无非就是一个状态转移的过程 难点就在于我们该如何去定义 状态 而这就需要我们多做题来积累经验 这也是初学者遇到动态规划往往无从下手的原因 动态规划的核心在于状态和状态转移方

  • 设计模式-迭代器模式

    迭代器模式 1 迭代器模式介绍 迭代器模式是一种行为型设计模式 它提供了一种方法来访问聚合对象中的各个元素 而不暴露其内部表示 通过使用迭代器 客户端可以遍历一个聚合对象中的元素 而不必了解其内部实现 在迭代器模式中 定义了一个迭代器接口

  • Vue生命周期与自定义组件

    自定义组件 Element 组件其实就是自定义的标签 例如

  • vue3知识点：setup

    文章目录 二 常用 Composition API 1 拉开序幕的setup setup的两个注意点 本人其他相关文章链接 二 常用 Composition API 问题 啥叫 组合式API 答案 请看官方文档 https v3 cn vu

  • 【Android】获取手机的相关硬件信息

    今天在QQ群里聊天 一个哥们在某宝买到了一个运行内存16G的手机 当时我就吓尿了 所以有了写个程序把这个手机的实际内存读出来的想法 于是就有了今天这篇博客 所有的信息项如下图所示 由于我的测试机没有插手机卡 所以有的信息会显示为空 以下就是

  • Python中的random函数

    显示 显示结果 random模块实现了各种分布的伪随机数生成器 伪随机数 人类使用算法等方式 以一个基准 也被称为种子 常用的是时间戳 来构造一系列数字 这些数字的特性符合人们所理解的随机数 一旦算法和种子都确定 产生的随机数序列也是确定的

  • Bitlocker 关闭加密 CMD 用命令 亲测有效

    CMD 命令行 解密Bitlocker 已管理员身份运行cmd 解锁 manage bde unlock C Recovery 忽略 加锁 manage bde lock C 忽略 解密 manage bde off C 加密 manage

  • linux查看服务器配置信息

    服务器型号 root txs dmidecode grep System Information A9 egrep Manufacturer Product 操作系统 root txs cat etc redhat release Cent

  • 最经典的20个Spring Boot面试题，95%以上会被问到，不服来战

    非常热门的 20 个Spring Boot 技术面试中经常被问到的问题 1 Spring Boot 有哪些特点 Spring Boot 是 Spring 的扩展 它消除了设置 Spring 应用程序所需的样板配置 自动配置 这是 Sprin

  • QT：多进程

    标题 1 多进程 2 多线程 3 常用方法 1 多进程 1 创建进程对象 QProcess QProcess QObject parent nullptr 2 启动进程去执行另外一个程序 void QProcess start const

  • 文华软件登录显示请选择服务器,文华随身行 请先登入云服务器

    文华随身行 请先登入云服务器 内容精选 换一换 本节操作介绍切换虚拟私有云的操作步骤 仅支持单网卡切换虚拟私有云 切换虚拟私有云前如果重装 切换过云服务器的操作系统 请先登录云服务器 验证重装 切换时设置的密码或密钥是否注入成功 如果成功登

  • 自动精简配置（Thin provisioning ）介绍

    自动精简配置 Thin provisioning 介绍 自动精简配置 有时也被称为 超额申请 是一中重要的新兴存储技术 本文定义了自动精简配置 并介绍它的工作原理 使用局限和一些使用建议 如果应用程序所使用的存储空间已满 就会崩溃 因此 存

  • STL map自定义排序规则

    文章目录 一 map自定义排序规则 1 默认排序规格 2 修改按key排序规格 3 修改按value排序规则 二 参考资料 一 map自定义排序规则 map中存储的是key value键值对 默认按照key值从小到大顺序排序 即map只能按

  • 转换blob类型的数据，然后进行下载各种文件

    转换blob类型的数据 然后进行下载各种文件 ress 返回的数据流 var blob new Blob ress type application vnd ms excel type这里表示xlsx类型 var link document

  • java中float f=1.1为什么不合法

    因为Java里带有小数点的数默认是double类型 所以1 1在这里是double类型 把他赋值给比他小的float类型就会出错 你想通过编译的话有3种方法改 double f 1 1 或者 float f 1 1f 或者 float f

随机推荐

  • linux配合php创建定时任务,linux创建PHP定时任务的实例

    linux创建PHP定时任务的实例 linux创建PHP定时任务 下面所有的前提是服务器存在PHP环境 首先创建一个php文件 示例内容如下 ch curl init 设置请求 curl setopt ch CURLOPT URL 写上要请

  • 信息安全技术 政务信息共享 数据安全技术要求

    声明 本文是学习GB T 39477 2020 信息安全技术 政务信息共享 数据安全技术要求 下载地址 http github5 com view 790而整理的学习笔记 分享出来希望更多人受益 如果存在侵权请及时联系我们 政务信息共享 数

  • opencv的CopyTo的用法

    用法1 深拷贝 A CopyTo B B 与 A 矩阵一模一样 改变任何一个 互不影响 用法2 掩膜操作 A CopyTo B M 把与M中非0像素 相同位置的A中像素copy到B中同一位置 M 必须是CV 8U 可以是单通道或多通道 可以

  • C++ 函数实参传递 (argument passing)

    C 函数实参传递 argument passing argument jum nt n 实参 parameter p r m t r n 形参 每次调用函数时都会重新创建它的形参 并用传入的实参对形参进行初始化 形参初始化的机理与变量初始化

  • 阿里规约等级

    Blocker 崩溃 一定要修改代码 阻碍开发或测试工作的问题 Critical 严重 根据情况改代码 系统主要功能部分丧失 数据库保存调用错误 用户数据丢失 Major 一般 选择性修改代码 功能没有完全实现但是不影响使用 功能菜单存在缺

  • 关于STM32运行一些函数存在卡死并进入HardFault_Handler函数的解决方法

    遇到的情况是 有一个需要运行的函数A 需要在函数B和函数C内运行 代码可如以下简单表示 void A char buf 一个运算量较大大的一个函数 功能是对圆弧进行解码 void B A buf1 void C A buf2 通过DEBUG

  • 第三篇：更新异常与规范化设计

    前言 在前两篇中 主要讲了ER建模和关系建模 在具体分析如何用数据库管理软件RDBMS Relational Database Management System 实现这些关系前 我想有必要思考下面这个问题 为什么要这么麻烦 为什么又是ER

  • C# List去掉某个位置的元素

    在 C 中 可以使用 RemoveAt 方法从 List 中删除指定位置的元素 这个方法接受一个整数参数 表示要删除的元素的索引 以下是一些示例代码 展示如何使用 RemoveAt 方法从 List 中删除指定位置的元素 创建一个包含一些元

  • Reactor模式

    Reactor是一种设计模式 可以用于构建高并发的网络服务器 Reactor模式的好处在于 可以在一个或多个reactor线程使用多路复用技术去管理所有网络连接连接建立 IO请求 保证工作线程不被IO阻塞 前置知识 IO多路复用技术 1 传

  • php zhegnze_php 正则表达式

    最近在写bbs中 遇上代码转换问题 寻找了很久 才得到一个比较完善的解决办法 可以彻底还原发文者的原文 以下贴出 供大家指正 系统 linux php4 oracle8i 标题 名字等字段入库处理 去首尾空格 function trans

  • AI代码生成插件推荐

    文章目录 前言 一 AI代码生成插件推荐 一 copilot 建议 个人不太推荐使用这个因为他收费了 二 codegeex 个人推荐 推荐使用这个 免费还不错 总结 AI代码生成可以有效的提高开发的效率

  • Windows磁盘管理

    0x01 磁盘管理概述 磁盘管理是一项计算机使用时的常规任务 它是以一组磁盘管理应用程序的形式提供给用户的 他们位于计算机管理控制台中 它包括查错程序和磁盘碎片整理程序以及磁盘整理程序 来源百度百科 本文主要介绍的内容为磁盘整理程序中的分区

  • 学成在线笔记+踩坑（0）——面试问题

    导航 黑马Java笔记 踩坑汇总 JavaSE JavaWeb SSM SpringBoot 瑞吉外卖 SpringCloud 黑马旅游 谷粒商城 学成在线 牛客面试题 目录 介绍你的项目 项目难点 CDN是什么 负载均衡是怎么做的 git

  • 【迎五一】超大福利来啦，众多精美课程、礼品等你来领

    C认证助力程序员 五一特惠活动来啦 单人报名可免费获得 电子书月卡 一份 组团报名皆可获得技术图书一本 无限次补考机会 带新用户报名皆可获得技术图书一本 精品网课 活动时间 4月26日 5月15日 心动不如行动 点击文末卡片立即了解 CSD

  • 哈希的应用 -- 布隆过滤器与海量数据处理

    文章目录 布隆过滤器概念 布隆过滤器设计思路 布隆过滤器的应用 布隆过滤器模拟实现 布隆过滤器的基本框架 布隆过滤器的插入 布隆过滤器的探测 布隆过滤器的删除 布隆过滤器优点 布隆过滤器缺陷 布隆过滤器模拟实现代码及测试代码 海量数据处理

  • 【云原生之Docker实战】使用Docker部署个人FireflyIII财务系统

    云原生之Docker实战 使用Docker部署个人FireflyIII财务系统 一 FireflyIII介绍 1 FireflyIII简介 2 FireflyIII特点 二 检查本地环境 1 检查系统版本 2 检查docker版本 3 检查

  • 数据可视化各个图表

    阶梯图 import pandas as pd from matplotlib import pyplot as plt postage pd read csv r http datasets flowingdata com us post

  • 请说说接口和抽象类的区别？

    1 从使用目的来看 接口只是一个类间的协议 它并没有规定怎么去实现 抽象类可以重用你代码使你的代码更加简洁 2 从行为来看 接口可以多继承 multi implement 抽象类不能实例化 必须子类化才能实例化 3 从属性来看 接口的属性必

  • VOSviewer

    1 文献下载 按需求搜索 wos一次只能导出500条文献信息 如果相关文献过多 可以按被引排序 导出 制表符分隔文件 全记录与引用的参考文献 2 可视化实现 打开VOSviewer软件 单击左区Map下的create 选择 create a

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

    Dim up dn le ri si liAs Single co As string 定义边距及页面函数 Sub ymszmk strName As String 页面设置模块On Error GoTo Err ymszmkIf Nz D

热门标签