PROGRAM OMIT('***') * Created with Clarion 11.0 *** INCLUDE('PRNPROP.CLW') MAP DB PROCEDURE(STRING xMsg) MODULE('WinAPI') OutputDebugString(*cstring Msg),PASCAL,RAW,DLL(1),NAME('OutputDebugStringA') END END !--The Stuff needed for Preview PreviewQ QUEUE,PRE(PreQ) FileName STRING(260) END !>>>--Define your test data AgentName STRING(20) LicenseNo STRING(10) todayIs long(10000) lclJobName string('jobb') markFor string('test') description string(350) price real(0) totalPrice real(33) lclHeader string('tttt') msg cstring(300) leftShark string('left shark') rightShark string('right shark') uom string('Ea') gblVersionDateString string('versionB') gblPrintDate string('xx/yy/zzzz') oneLine cstring(300) report REPORT,AT(1008,2158,6000,7479),FONT('Arial',10,,FONT:regular),PRE(rpt),THOUS HEADER,AT(1000,0,6000,910),USE(?HEADER1) STRING('AAAAA'),AT(1350,125,3300,192),USE(?String1),CENTER, | FONT(,,,FONT:bold) STRING('Job Name'),AT(52,500,808,192),USE(?String9) STRING(@s75),AT(854,500,4542,192),USE(lclJobName) STRING(@s75),AT(854,698,4542,192),USE(markFor) STRING('Mark for'),AT(52,698,808,192),USE(?String9:2) LINE,AT(0,906,6000,0),USE(?Line2:2),COLOR(COLOR:Black) END head DETAIL,AT(0,0,6000,208),USE(?DETAIL1) STRING(@s70),AT(50,0,4625,192),USE(description),FONT(,,,FONT:bold) END indent DETAIL,AT(0,0,,198),USE(?DETAIL2) STRING(@s70),AT(375,0,4325,192),USE(leftshark),TRN STRING(@s70),AT(1781,0,3594,188),USE(rightshark),TRN,RIGHT STRING(@s10),AT(5437,0,510,188),USE(uom),TRN END FOOTER,AT(1000,9633,5990,896),USE(?FOOTER1) LINE,AT(0,52,6000,0),USE(?Line2),COLOR(COLOR:Black) STRING(@s60),AT(58,258,1500,187),USE(gblVersionDateString),LEFT STRING(@s15),AT(4575,258,1200,192),USE(gblPrintDate),RIGHT STRING(@n3),AT(2885,260,408,192),PAGENO,USE(?String24),LEFT STRING('SUBJECT TO CHANGE WITHOUT NOTICE'),AT(58,83,2758,175), | USE(?STRING2),LEFT STRING('Page'),AT(2510,240),USE(?String25) END END CODE !--Create Report OPEN(Report) REPORT{PROP:Preview}=PreviewQ SETTARGET(Report) description = 'Test Ttest' print(rpt:head) print(rpt:indent) !--Report done, prepare it for preview ENDPAGE(Report) ! CLOSE(Report) loses files !--Preview the report DO ReportPreviewRtn CLOSE(Report) !----------------- Open Preview Window and display -------------------------- ReportPreviewRtn ROUTINE DATA PrintIt Bool PreviewWindow WINDOW('Preview'),AT(,,495,332),FONT('Microsoft Sans Serif',8,,FONT:regular),SYSTEM,MAX,RESIZE,CENTER LIST,AT(1,2,317,11),USE(?List:PreviewQ),VSCROLL,FONT(,10,,),DROP(10),FROM(PreviewQ) BUTTON('&Print'),AT(332,1,41,11),USE(?PrintBtn) IMAGE,AT(1,15),USE(?Image1),FULL,HVSCROLL END CODE OPEN(PreviewWindow) ?List:PreviewQ{PROP:Selected}=1 ?PrintBtn{PROP:Tip} = 'Print to ' & printer{PROPPRINT:Device} ACCEPT IF ACCEPTED()=?List:PreviewQ OR EVENT()=Event:OpenWindow GET(PreviewQ,CHOICE(?List:PreviewQ)) ?Image1{PROP:Text}=PreviewQ DISPLAY ELSIF ACCEPTED() = ?PrintBtn PrintIt=True BREAK END END CLOSE(PreviewWindow) IF PrintIt THEN REPORT{PROP:FlushPreview}=True. exit !---------------------------------------- DB PROCEDURE(STRING xMessage) Prfx EQUATE('RptTest: ') !All output gets this sz CSTRING(SIZE(Prfx)+SIZE(xMessage)+3),AUTO CODE sz = Prfx & CLIP(xMessage) & '<13,10>' OutputDebugString( sz )