代码子设置下一个父khwnd1里查找office76.pdfVIP

Code:

Subcartes

SetnextdocumentparentkHwndStyle1

layout

Position(0,0)Unitsin

Width450UnitsinHeight350Unitsin

SetCoordSysLayoutUnitscm

CreateTextCommunede:+vnom_com(0.5146,0.6125)(5.7632,0.909)Font

(Arial,1,18,0)

CreateTextSource:XXXXRA.Réalisation:SIGXXXXRA+chr$(34)+Month(CurDate())+

chr$(34)+Year(CurDate())(28.541,12.502)(28.541,12.502)Font(Arial

Narrow,0,9,0)Angle90

CreatePoint(14.748,10.511)Symbol(40,0,36,MapInfoArrows,0,0)

CreateFrame(0.513,0.834)(28.984,20.188)Pen(1,1,0)Brush(116777215)

TitleDonneespsg,...,DonneesifnCarteFillFrameOn

CreateFrame(22.848,14.552)(28.984,20.188)Pen(1,1,0)Brush(216777215)

TitleLégendedeDonneespsg,...,DonneesifnCarteFillFrameOff

CreateFrame(3.244,19.193)(5.793,20.262)Pen(1,1,0)Brush(116777215)Title

logo_raFillFrameOn

CreateFrame(0.697,18.198)(2.910,20.235)Pen(1,1,0)Brush(116777215)Title

logo_crpf_raFillFrameOn

SetwindowFrontWindow()PrinterNamenomdelimprimanteOrientationLandscapeCopies

1Papersize9jelairépétépouravoirlabonneconfiguration!

endsub

fin

miseenpagecartes

impression

Subimpression

noteàimprimer!

enregistrementimage

dimchemin_repertoireasstring

Dimcmdasstring

chemin_repertoire=FileSaveAsDlg(S:\,essai_enr_outil_img,jpg,Parcourir)

enr_document=PathToDirectory$(chemin_repertoire)

cmd=SaveWorkspaceaschr$(34)enr_documentessai_enr_outil_img.wor

chr$(34)

runcommandcmd

SetwindowFrontWindow()PrinterNamenomdelimprimanteOrientationLandscapeCopies

1Papersize9

endSub

代码：子卡特斯设置下一个文档父khwnd样式1

布局位置（0,0）单位“”

宽度450单位“在“高度350单位”中”

设置坐标布局单位“CM”

创建文本“Co