写印地10的Delphi代码问题，怎么解决
1个回答
2018-09-20 · 百度知道官方认证企业
腾讯电脑管家
腾讯电脑管家是腾讯公司推出的免费安全管理软件，能有效预防和解决计算机上常见的安全风险，并帮助用户解决各种电脑“疑难杂症”、优化系统和网络环境，是中国综合能力最强、最稳定的安全软件。
向TA提问
关注
![]()
展开全部
{fastreport:}Procedure TForm1.Button1Click(Sender:TObject);var report:TfrxReport; page:TfrxReportPage;begin page:=TFrxReportPage(frxReport1.FindObject('Page1')); page.PaperSize:=DMPAPER_A3{指定A3}...end; {Printer:}uses Printers Procedure TForm1.Button1Click(Sender:TObject);var Device:array [0..cchDeviceName-1] of Char; Driver:array [0..(MAX_PATH-1)] of Char; Port:array [0..32] of Char; hDMode:THandle; pDMode:PDevMode;begin Printer.GetPrinter(Device,Driver,Port,hDMode); if hDMode<>0 then begin pDMode:=GlobalLock(hDMode); if pDMode<> nil then begin pDMode^.dmPaperSize:=256; pDMode^.dmPaperLength:=1140; //指定长114mm pDMode^.dmPaperWidth:=1900; //指定宽190mm pDMode^.dmFields:=pDMode^.dmFields or DM_PAPERSIZE; pDMode^.dmFields:=pDMode^.dmFields or DM_PAPERLENGTH; pDMode^.dmFields:=pDMode^.dmFields or DM_PAPERWIDTH; ResetDC(Printer.Handle,pDMode^); GlobalUnlock(hDMode); end; end; with Printer do{测试} begin BeginDoc; Canvas.TextOut(10,10,'Hello,Jack!'); EndDoc; end;end;
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
AiPPT
2024-09-19 广告
随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
