delphi 打开打印机属性?

图片说明

是单击按钮 直接打开属性页面,不是打印机设置。

2个回答

执行 rundll32 printui.dll,PrintUIEntry 命令会弹出具体的参数
然后在代码中使用WinExec执行即可。

找下PrinterSetupDialog控件

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
delphi 打开控制面板 下面的 设备和打印机 窗口?
![图片说明](https://img-ask.csdn.net/upload/201808/07/1533619149_243148.jpg) 用代码打开上图的窗口。
Delphi 控制条形码打印机,打印机没有输出任何东西
您好,请问哪位大神有利用delphi控制过条码打印机或钱柜的。我的打印机使用下列语句,一点反应都没有。但是如果把raw改成text,则打印机会直接将命令用文字的方式输出! procedure WriteRawStringToPrinter(PrinterName, S: String); var Handle: THandle; N: DWord; DocInfo1: TDocInfo1A; begin if not OpenPrinter(PChar(PrinterName), Handle, nil) then raise Exception.Create('Open Printer Fail!'); with DocInfo1 do begin pDocName := PAnsiChar('BarCode Label'); pOutputFile := nil; pDatatype := 'RAW'; end; // 把換行及回車先處理掉試試 s := StringReplace(s,CHR(10),'',[rfReplaceAll]); s := StringReplace(s,CHR(13),'',[rfReplaceAll]); StartDocPrinter(Handle, 1, @DocInfo1); StartPagePrinter(Handle); //WritePrinter(Handle, PChar(S), Length(S), N); WritePrinter(Handle, PChar('^XA^FO100,100^BY3^B3N,N,100,Y,N^FD123ABC^FS^XZ'), Length(S), N); EndPagePrinter(Handle); EndDocPrinter(Handle); ClosePrinter(Handle); end;
如何在Delphi打开Excel文档时使用修复功能?
问题:在使用Delphi7操作Excel文档时,当文件直接用excle打开时提示“发现不可读取的内容,是否恢复此工作簿的内容?如果信任此工作簿的来源,请单价是”。此时点击“是”,可以打开,再保存后打开就正常,不再提示上述错了,但用Delphi的Application.Workbooks.open方法打开时就会提示类的Open方法无效错误。在MSDN中找到可以用修复方法打开,用VBA 的XlCorruptLoad=xlRepairFile 参数可以正常打开文件。请问? 在Delphi中有没有方法可以使用类似VBA XlCorruptLoad的参数? 以下是我的代码,但没有作用! FileOv:=CreateOleObject('Excel.Application'); FileOv.Application.DisplayAlerts:=false; FileOv.Application.Workbooks.open(wjm,EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,xlRepairFile);
怎样关闭Delphi项目的只读属性??
我在网上下载了一个Delphi的工程,但是打开显示的是read-only请问怎么把这个给关了呀??
delphi指令打印时横向移动打印头问题。
最近在做delphi指令打印,我用以下程序打印时横向位移参数n1不能大于127,如果大于,导致打印位置错误,小于127时就没有任何问题,请问这个问题怎么解决? AssignFile(F,'lpt1'); Rewrite(F); //ESC \ n1 n2 Write(f,chr(27)+chr(36)+chr(180)+chr(1)); write(f,'a'); CloseFile(f);
delphi如何在条码打印机上打字
新手刚刚学习delphi7.0,做一个项目,要求用条码打印机打印标签,比如在标签纸上面打印‘12345’我用的是38宽50高的标签打印纸,用了网上一段代码,为什么走纸正常就是打印不出来,打印都是空白的,请高手指点,另外下面代码什么意思啊,为什么就是不打印不了标签 procedure TForm1.FormCreate(Sender: TObject); begin BarCodeCtrl1.Value := '012345678'; BarCodeCtrl1.Width := 400; BarCodeCtrl1.Height := 100; end; procedure TForm1.Button1Click(Sender: TObject); var bmp:TBitmap; sR,tR:TRect; begin //记录图像 bmp := TBitmap.Create; sR := Rect(BarCodeCtrl1.Left,BarCodeCtrl1.Top,BarCodeCtrl1.Left + BarCodeCtrl1.Width, BarCodeCtrl1.Top + BarCodeCtrl1.Height); tR := Rect(0,0,BarCodeCtrl1.Width,BarCodeCtrl1.Height); bmp.Width := BarCodeCtrl1.Width; bmp.Height := BarCodeCtrl1.Height; bmp.Canvas.CopyRect(tR,Canvas,sR); bmp.SaveToFile('c:\1.bmp'); printer.BeginDoc; printer.Canvas.Font.Size := 15; printer.Canvas.TextOut(10,10,'Barcodestrl demo'); printer.Canvas.Draw(20,100,bmp); printer.EndDoc; bmp.free; end;
delphi printdialog1的打印上边距,打印出来的东西往下一点?
delphi printdialog1的打印怎么设置上边距,打印出来的东西往下一点? 网上抄的代码 procedure TForm3.Button1Click(Sender: TObject); var line:integer; //定义一个line变量,用于下面控制打印各行内容 files:system.text; //告诉系统说files是文本文件,是要打印机打印的文件 begin if printdialog1.execute then //当printdialog1执行后 begin assignprn(files); //通过assignprn函数将要打印的文件交给打印机 rewrite(files); //让打印机打开文件准备打印 printer.Canvas.font:=memo1.font; //canvas是打印机的画板,用来打印文件的,直接设置字体 for line:=0 to memo1.lines.count-1 do //以下是循环memo1的每个行 begin writeln(files,memo1.lines[line]); //打印每行内容 writeln(文件名,文本的某个行); end; system.close(files); //打印完了就关闭要打印的文件 end; end;
C++中的类静态变量在delphi7中怎么实现。
请教一下,类TCat,TDog都是继承类TAnimal,我想自改TAnimal中myKind属性然后TCat和TDog实例中的MyKind都改了,怎么弄??
Delphi rave如何选择指定页打印
Delphi rave如何选择指定页打印,打印预览的时候选择了打印2到2,或3到4,但总是从第一页开始打印,请问各位大侠,怎么解决,谢谢!
delphi中tcxgrid控件的属性
tcxgrid控件中立即提交修改是哪个属性,我连接的数据库,我在表里面修改了数据,怎么有个立即提交的属性,我不知道是什么,求大神指教
请教delphi做上位机的问题
现在需要用delphi做一个上位机,接收从串口助手上根据动态路由表发送的数据,并将数据展示成动态拓扑图的结构,是基于ad hoc网络的
delphi dbgrideh的导出功能,导出某几列?
delphi dbgrideh的导出功能,导出某几列? 使用自带的函数SaveDBGridEhToExportFile导出全部的数据OK的, 现在我只想导出第2列 至 第5列 其他列的不要,怎么实现啊。 有知道的老师吗?
delphi 可以通过FDQuery来执行导入数据库操作吗?
delphi 可以通过FDQuery来执行导入数据库操作吗? 如题: 在delphi里怎么操作可以导入SQL文件到MYSQL数据库里呢,麻烦老是指点。
delphi 7和delphi xe,你选哪一个?
过去开发项目一直用delphi 7,为了避免版权问题,现在想买套正版软件,纠结于买delphi 7还是delphi xe,大家来说说它们的优缺点吧
delphi xe WebBrowser 安卓开发 打开网站出错
我用delphi xe6 开发安卓一个打开对方网站的小软件,用WebBrowser.Navigate 打开对方网站 ,打给对方网站电话咨询 时,用手机自带浏览器会自动跳到手机拨号盘,但我软件显示《找不到网页 tel:电话号码处的网页可能暂时出现故障,也可能已永久移至某个新的网络地址》 请指定!
delphi 用控件打开pdf文件无法读取pdf里的表单信息
我用的delphi7 用的是破解版的foxit_ax_pro.ocx文件版本3.0.1.2506,用OpenFile打开一个包含表单的pdf文件,浏览正常,但用代码访问时出错(下面第二行,FNameMI存在): frm:=FoxitReaderSDK1.GetCurrentForm(); ShowMessage(frm.GetFieldByName('FNameMI').Value) ; 变成无法获取表单信息。另外单独打开该pdf文件可以提交表单数据到url但是用这个控件,同样的按钮,提交可以,但获取不到表单数据。 有哪位高手能解答下,不胜感谢!!
delphi webbrowser打开一个网页的问题?
![图片说明](https://img-ask.csdn.net/upload/201808/11/1533987675_560008.jpg) 我用webbrowser打开了这个网页,在什么地方可以判断我点击了“收货和物流信息”的链接呢?
Delphi PicklList 显示问题,详细见图。
![图片说明](https://img-ask.csdn.net/upload/201912/15/1576388119_311742.png) Procedure TfrmsAA.dbgrdCellClick(Column: TColumnEh); Begin Inherited; If (UPPERCASE(Column.FieldName) = 'ColNM') And (qry.FieldByName('ColPcode').AsString <> '') Then Begin TRY IF Not (qry.State In [dsEdit, dsInsert]) Then BEGIN qry.Edit; qry.Post; END; qry.DisableControls; Column.PickList.clear; Column.KeyList.clear; With Sys.QryTemp Do Begin close; sql.Clear; sql.add('SELECT Pcode FROM Table1 WHERE code=' + qry.fieldbyname('colpcode').asstring); open; While Not eof Do Begin dbgrd.FieldColumns['colnm'].PickList.Add(fieldByName('pcode').AsString); dbgrd.FieldColumns['colnm'].KeyList.Add(fieldByName('pcode').AsString); Next; End; End; Finally qry.EnableControls; End; End; End; 已确认是每次点击的时候,清除picklist导致,但是这种情况如何处理?是否有其他代替的方法?
delphi FileListBox 排序
delphi FileListBox 显示的内容如何按照文件的名称进行排序
相见恨晚的超实用网站
搞学习 知乎:www.zhihu.com 简答题:http://www.jiandati.com/ 网易公开课:https://open.163.com/ted/ 网易云课堂:https://study.163.com/ 中国大学MOOC:www.icourse163.org 网易云课堂:study.163.com 哔哩哔哩弹幕网:www.bilibili.com 我要自学网:www.51zxw
花了20分钟,给女朋友们写了一个web版群聊程序
参考博客 [1]https://www.byteslounge.com/tutorials/java-ee-html5-websocket-example
爬虫福利二 之 妹子图网MM批量下载
爬虫福利一:27报网MM批量下载    点击 看了本文,相信大家对爬虫一定会产生强烈的兴趣,激励自己去学习爬虫,在这里提前祝:大家学有所成! 目标网站:妹子图网 环境:Python3.x 相关第三方模块:requests、beautifulsoup4 Re:各位在测试时只需要将代码里的变量 path 指定为你当前系统要保存的路径,使用 python xxx.py 或IDE运行即可。
字节跳动视频编解码面经
引言 本文主要是记录一下面试字节跳动的经历。 三四月份投了字节跳动的实习(图形图像岗位),然后hr打电话过来问了一下会不会opengl,c++,shador,当时只会一点c++,其他两个都不会,也就直接被拒了。 七月初内推了字节跳动的提前批,因为内推没有具体的岗位,hr又打电话问要不要考虑一下图形图像岗,我说实习投过这个岗位不合适,不会opengl和shador,然后hr就说秋招更看重基础。我当时
Java学习的正确打开方式
在博主认为,对于入门级学习java的最佳学习方法莫过于视频+博客+书籍+总结,前三者博主将淋漓尽致地挥毫于这篇博客文章中,至于总结在于个人,实际上越到后面你会发现学习的最好方式就是阅读参考官方文档其次就是国内的书籍,博客次之,这又是一个层次了,这里暂时不提后面再谈。博主将为各位入门java保驾护航,各位只管冲鸭!!!上天是公平的,只要不辜负时间,时间自然不会辜负你。 何谓学习?博主所理解的学习,它
程序员必须掌握的核心算法有哪些?
由于我之前一直强调数据结构以及算法学习的重要性,所以就有一些读者经常问我,数据结构与算法应该要学习到哪个程度呢?,说实话,这个问题我不知道要怎么回答你,主要取决于你想学习到哪些程度,不过针对这个问题,我稍微总结一下我学过的算法知识点,以及我觉得值得学习的算法。这些算法与数据结构的学习大多数是零散的,并没有一本把他们全部覆盖的书籍。下面是我觉得值得学习的一些算法以及数据结构,当然,我也会整理一些看过
大学四年自学走来,这些私藏的实用工具/学习网站我贡献出来了
大学四年,看课本是不可能一直看课本的了,对于学习,特别是自学,善于搜索网上的一些资源来辅助,还是非常有必要的,下面我就把这几年私藏的各种资源,网站贡献出来给你们。主要有:电子书搜索、实用工具、在线视频学习网站、非视频学习网站、软件下载、面试/求职必备网站。 注意:文中提到的所有资源,文末我都给你整理好了,你们只管拿去,如果觉得不错,转发、分享就是最大的支持了。 一、电子书搜索 对于大部分程序员...
linux系列之常用运维命令整理笔录
本博客记录工作中需要的linux运维命令,大学时候开始接触linux,会一些基本操作,可是都没有整理起来,加上是做开发,不做运维,有些命令忘记了,所以现在整理成博客,当然vi,文件操作等就不介绍了,慢慢积累一些其它拓展的命令,博客不定时更新 顺便拉下票,我在参加csdn博客之星竞选,欢迎投票支持,每个QQ或者微信每天都可以投5票,扫二维码即可,http://m234140.nofollow.ax.
比特币原理详解
一、什么是比特币 比特币是一种电子货币,是一种基于密码学的货币,在2008年11月1日由中本聪发表比特币白皮书,文中提出了一种去中心化的电子记账系统,我们平时的电子现金是银行来记账,因为银行的背后是国家信用。去中心化电子记账系统是参与者共同记账。比特币可以防止主权危机、信用风险。其好处不多做赘述,这一层面介绍的文章很多,本文主要从更深层的技术原理角度进行介绍。 二、问题引入 假设现有4个人...
Python 基础(一):入门必备知识
目录1 标识符2 关键字3 引号4 编码5 输入输出6 缩进7 多行8 注释9 数据类型10 运算符10.1 常用运算符10.2 运算符优先级 1 标识符 标识符是编程时使用的名字,用于给变量、函数、语句块等命名,Python 中标识符由字母、数字、下划线组成,不能以数字开头,区分大小写。 以下划线开头的标识符有特殊含义,单下划线开头的标识符,如:_xxx ,表示不能直接访问的类属性,需通过类提供
这30个CSS选择器,你必须熟记(上)
关注前端达人,与你共同进步CSS的魅力就是让我们前端工程师像设计师一样进行网页的设计,我们能轻而易举的改变颜色、布局、制作出漂亮的影音效果等等,我们只需要改几行代码,不需...
国产开源API网关项目进入Apache孵化器:APISIX
点击蓝色“程序猿DD”关注我回复“资源”获取独家整理的学习资料!近日,又有一个开源项目加入了这个Java开源界大名鼎鼎的Apache基金会,开始进行孵化器。项目名称:AP...
程序员接私活怎样防止做完了不给钱?
首先跟大家说明一点,我们做 IT 类的外包开发,是非标品开发,所以很有可能在开发过程中会有这样那样的需求修改,而这种需求修改很容易造成扯皮,进而影响到费用支付,甚至出现做完了项目收不到钱的情况。 那么,怎么保证自己的薪酬安全呢? 我们在开工前,一定要做好一些证据方面的准备(也就是“讨薪”的理论依据),这其中最重要的就是需求文档和验收标准。一定要让需求方提供这两个文档资料作为开发的基础。之后开发
网页实现一个简单的音乐播放器(大佬别看。(⊙﹏⊙))
今天闲着无事,就想写点东西。然后听了下歌,就打算写个播放器。 于是乎用h5 audio的加上js简单的播放器完工了。 欢迎 改进 留言。 演示地点跳到演示地点 html代码如下`&lt;!DOCTYPE html&gt; &lt;html&gt; &lt;head&gt; &lt;title&gt;music&lt;/title&gt; &lt;meta charset="utf-8"&gt
Python十大装B语法
Python 是一种代表简单思想的语言,其语法相对简单,很容易上手。不过,如果就此小视 Python 语法的精妙和深邃,那就大错特错了。本文精心筛选了最能展现 Python 语法之精妙的十个知识点,并附上详细的实例代码。如能在实战中融会贯通、灵活使用,必将使代码更为精炼、高效,同时也会极大提升代码B格,使之看上去更老练,读起来更优雅。 1. for - else 什么?不是 if 和 else 才
数据库优化 - SQL优化
前面一篇文章从实例的角度进行数据库优化,通过配置一些参数让数据库性能达到最优。但是一些“不好”的SQL也会导致数据库查询变慢,影响业务流程。本文从SQL角度进行数据库优化,提升SQL运行效率。 判断问题SQL 判断SQL是否有问题时可以通过两个表象进行判断: 系统级别表象 CPU消耗严重 IO等待严重 页面响应时间过长
2019年11月中国大陆编程语言排行榜
2019年11月2日,我统计了某招聘网站,获得有效程序员招聘数据9万条。针对招聘信息,提取编程语言关键字,并统计如下: 编程语言比例 rank pl_ percentage 1 java 33.62% 2 c/c++ 16.42% 3 c_sharp 12.82% 4 javascript 12.31% 5 python 7.93% 6 go 7.25% 7
通俗易懂地给女朋友讲:线程池的内部原理
餐厅的约会 餐盘在灯光的照耀下格外晶莹洁白,女朋友拿起红酒杯轻轻地抿了一小口,对我说:“经常听你说线程池,到底线程池到底是个什么原理?”我楞了一下,心里想女朋友今天是怎么了,怎么突然问出这么专业的问题,但做为一个专业人士在女朋友面前也不能露怯啊,想了一下便说:“我先给你讲讲我前同事老王的故事吧!” 大龄程序员老王 老王是一个已经北漂十多年的程序员,岁数大了,加班加不动了,升迁也无望,于是拿着手里
经典算法(5)杨辉三角
杨辉三角 是经典算法,这篇博客对它的算法思想进行了讲解,并有完整的代码实现。
编写Spring MVC控制器的14个技巧
本期目录 1.使用@Controller构造型 2.实现控制器接口 3.扩展AbstractController类 4.为处理程序方法指定URL映射 5.为处理程序方法指定HTTP请求方法 6.将请求参数映射到处理程序方法 7.返回模型和视图 8.将对象放入模型 9.处理程序方法中的重定向 10.处理表格提交和表格验证 11.处理文件上传 12.在控制器中自动装配业务类 ...
腾讯算法面试题:64匹马8个跑道需要多少轮才能选出最快的四匹?
昨天,有网友私信我,说去阿里面试,彻底的被打击到了。问了为什么网上大量使用ThreadLocal的源码都会加上private static?他被难住了,因为他从来都没有考虑过这个问题。无独有偶,今天笔者又发现有网友吐槽了一道腾讯的面试题,我们一起来看看。 腾讯算法面试题:64匹马8个跑道需要多少轮才能选出最快的四匹? 在互联网职场论坛,一名程序员发帖求助到。二面腾讯,其中一个算法题:64匹
面试官:你连RESTful都不知道我怎么敢要你?
面试官:了解RESTful吗? 我:听说过。 面试官:那什么是RESTful? 我:就是用起来很规范,挺好的 面试官:是RESTful挺好的,还是自我感觉挺好的 我:都挺好的。 面试官:… 把门关上。 我:… 要干嘛?先关上再说。 面试官:我说出去把门关上。 我:what ?,夺门而去 文章目录01 前言02 RESTful的来源03 RESTful6大原则1. C-S架构2. 无状态3.统一的接
求小姐姐抠图竟遭白眼?痛定思痛,我决定用 Python 自力更生!
点击蓝色“Python空间”关注我丫加个“星标”,每天一起快乐的学习大家好,我是 Rocky0429,一个刚恰完午饭,正在用刷网页浪费生命的蒟蒻...一堆堆无聊八卦信息的网页内容慢慢使我的双眼模糊,一个哈欠打出了三斤老泪,就在此时我看到了一张图片:是谁!是谁把我女朋友的照片放出来的!awsl!太好看了叭...等等,那个背景上的一堆鬼画符是什么鬼?!真是看不下去!叔叔婶婶能忍,隔壁老王的三姨妈的四表...
为啥国人偏爱Mybatis,而老外喜欢Hibernate/JPA呢?
关于SQL和ORM的争论,永远都不会终止,我也一直在思考这个问题。昨天又跟群里的小伙伴进行了一番讨论,感触还是有一些,于是就有了今天这篇文。 声明:本文不会下关于Mybatis和JPA两个持久层框架哪个更好这样的结论。只是摆事实,讲道理,所以,请各位看官勿喷。 一、事件起因 关于Mybatis和JPA孰优孰劣的问题,争论已经很多年了。一直也没有结论,毕竟每个人的喜好和习惯是大不相同的。我也看
SQL-小白最佳入门sql查询一
不要偷偷的查询我的个人资料,即使你再喜欢我,也不要这样,真的不好;
项目中的if else太多了,该怎么重构?
介绍 最近跟着公司的大佬开发了一款IM系统,类似QQ和微信哈,就是聊天软件。我们有一部分业务逻辑是这样的 if (msgType = "文本") { // dosomething } else if(msgType = "图片") { // doshomething } else if(msgType = "视频") { // doshomething } else { // doshom...
致 Python 初学者
欢迎来到“Python进阶”专栏!来到这里的每一位同学,应该大致上学习了很多 Python 的基础知识,正在努力成长的过程中。在此期间,一定遇到了很多的困惑,对未来的学习方向感到迷茫。我非常理解你们所面临的处境。我从2007年开始接触 python 这门编程语言,从2009年开始单一使用 python 应对所有的开发工作,直至今天。回顾自己的学习过程,也曾经遇到过无数的困难,也曾经迷茫过、困惑过。开办这个专栏,正是为了帮助像我当年一样困惑的 Python 初学者走出困境、快速成长。希望我的经验能真正帮到你
“狗屁不通文章生成器”登顶GitHub热榜,分分钟写出万字形式主义大作
一、垃圾文字生成器介绍 最近在浏览GitHub的时候,发现了这样一个骨骼清奇的雷人项目,而且热度还特别高。 项目中文名:狗屁不通文章生成器 项目英文名:BullshitGenerator 根据作者的介绍,他是偶尔需要一些中文文字用于GUI开发时测试文本渲染,因此开发了这个废话生成器。但由于生成的废话实在是太过富于哲理,所以最近已经被小伙伴们给玩坏了。 他的文风可能是这样的: 你发现,...
程序员:我终于知道post和get的区别
是一个老生常谈的话题,然而随着不断的学习,对于以前的认识有很多误区,所以还是需要不断地总结的,学而时习之,不亦说乎
《程序人生》系列-这个程序员只用了20行代码就拿了冠军
你知道的越多,你不知道的越多 点赞再看,养成习惯GitHub上已经开源https://github.com/JavaFamily,有一线大厂面试点脑图,欢迎Star和完善 前言 这一期不算《吊打面试官》系列的,所有没前言我直接开始。 絮叨 本来应该是没有这期的,看过我上期的小伙伴应该是知道的嘛,双十一比较忙嘛,要值班又要去帮忙拍摄年会的视频素材,还得搞个程序员一天的Vlog,还要写BU...
相关热词 c# clr dll c# 如何orm c# 固定大小的字符数组 c#框架设计 c# 删除数据库 c# 中文文字 图片转 c# 成员属性 接口 c#如何将程序封装 16进制负数转换 c# c#练手项目
立即提问