Need help for displaying Excel format

[PixelGoodies]

Good day my fellow Autoit friends.

I'm having problems getting the exact code I need for Excel. Although I have the code for Word. An image is attached how I needed my Excel to be displayed.

 

expandcollapse popup

#include <Word.au3>

_WordErrorHandlerRegister()

Local $oWordApp = ObjCreate("Word.Application")
$oWordApp.Documents.add
$oWordApp.visible=1
$oWordApp.ActiveDocument.Range.ParagraphFormat.SpaceAfter = 0
$oWordApp.ActiveDocument.Sections(1).PageSetup.TopMargin = 15
$oWordApp.ActiveDocument.Sections(1).PageSetup.LeftMargin = 15
$oWordApp.ActiveDocument.Sections(1).PageSetup.RightMargin = 370
$oDoc = $oWordApp.ActiveDocument

$oWordApp.Selection.TypeText ("TRANSPORT SERVICES" & @CR & _
"Location" & @CR & _
"Tel#" & @CR & _
"Cell#" & @CR & _
"===============================================" & @CR & _
"TRIP TICKET" & @TAB & @TAB & @TAB & @TAB & "#16" & @CR & _
"===============================================" & @CR & _
"Date:" & @CR & _
"Customer:" & @CR & _
"Address:" & @CR & _
"Contact#:" & @CR & _
"Origin:" & @CR & _
"Destination:" & @CR & _
"Contracted Price (10Hrs):" & @CR & _
"===============================================" & @CR & _
"Vechicle:" & @CR & _
"Plate#:" & @CR & _
"Date Out:" & @CR & _
"Time Out:" & @CR & _
"Excess at P 100 /Hr." & @CR & _
"Date In:" & @CR & _
"Time In:" & @CR & _
"Issuer:" & @CR & _
"Total Amount:" & @CR & _
"===============================================" & @CR & _
"Provision: Cancellation of reserved trip should be 3 days" & @LF & _
"before schedule. Failure will be billed 50% of the contracted" & @LF & _
"price. Deviation from agreed destination must be cleared" & @LF & _
"with our office. In case of vehicle breakdown a rescue" & @LF & _
"vehicle will be dispatched whenever possible, otherwise" & @LF & _
"charge will be on a prorated basis." & @LF & _
"===============================================" &  @LF & @CRLF & @CRLF & _
"Name of Driver         Customer")

With $oDoc.Range.Font
    .Name = "Arial"
    .Size = 8
    .Bold = False
EndWith

Thanks in advance.

[water]

Just to be sure.
The code you now have for Word should be translated to return the same result in Excel?

[PixelGoodies]

Hi Water,

I needed the image attached here to be displayed in Excel.

[water]

As there is no variable data in the Excel sheet, wouldn't it make sense to manually create a template?

[PixelGoodies]

Water,

There's a variable data which I didn't include from the code. Try running my code you'll be able to understand what my problem.

[water]

Can't run your code at the moment because I'm on a business trip right now.
If there is variable data in your template you could create the template by hand and then use _Excel_RangeReplace to replace placeholders like %date% with the current data.
So the form would be easier to maintain.

[PixelGoodies]

Ok finally got what you meant water. Cheers!

[water]