{"id":58,"date":"2007-08-28T16:36:00","date_gmt":"2007-08-28T16:36:00","guid":{"rendered":"http:\/\/www.webmundi.com\/?p=58"},"modified":"2020-08-18T16:43:24","modified_gmt":"2020-08-18T19:43:24","slug":"numero-de-copias-para-a-impressao","status":"publish","type":"post","link":"http:\/\/localhost\/cmswebmundicom\/desenvolvimento-de-sistemas\/numero-de-copias-para-a-impressao\/","title":{"rendered":"N\u00famero de c\u00f3pias para a impress\u00e3o"},"content":{"rendered":"
N\u00famero de c\u00f3pias para a impress\u00e3o<\/p>\n
\u00a0<\/p>\n
Procedure AjustaPapel(Copias:Integer);
\nvar
\nDevice : array[0..255] of char;
\nDriver : array[0..255] of char;
\nPort : array[0..255] of char;
\nhDMode : THandle;
\nPDMode : PDEVMODE;
\nbegin
\nPrinter.PrinterIndex := Printer.PrinterIndex;
\nPrinter.GetPrinter(Device, Driver, Port, hDMode);
\nif hDMode <> 0 then
\nbegin
\npDMode := GlobalLock(hDMode);
\nif pDMode <> nil then
\nbegin
\npDMode^.dmFields := pDMode^.dmFields or DM_COPIES;
\npDMode^.dmCopies := Copias;
\nGlobalUnlock(hDMode);
\nend;
\nGlobalFree(hDMode);
\nend;
\nPrinter.PrinterIndex := Printer.PrinterIndex;
\nend;<\/p>\n","protected":false},"excerpt":{"rendered":"
N\u00famero de c\u00f3pias para a impress\u00e3o \u00a0 Procedure AjustaPapel(Copias:Integer); var Device : array[0..255] of char; Driver : array[0..255] of char;…<\/p>\n","protected":false},"author":2,"featured_media":29284,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_kadence_starter_templates_imported_post":false,"_kad_post_transparent":"","_kad_post_title":"","_kad_post_layout":"","_kad_post_sidebar_id":"","_kad_post_content_style":"","_kad_post_vertical_padding":"","_kad_post_feature":"","_kad_post_feature_position":"","_kad_post_header":false,"_kad_post_footer":false,"footnotes":""},"categories":[9,13],"tags":[27,28,14],"class_list":["post-58","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-delphi","category-desenvolvimento-de-sistemas","tag-delphi","tag-desenvolvimento-de-sistemas","tag-programacao"],"yoast_head":"\n