Add text in new line - Print command code

[Anant Chirmade]

Dear All,

I am facing one issue while printing the text to a .htm file..

Below is the code :

Sub run_marquee2()
' EXAMPLE 1
Dim mbody As String
Dim EscAvail As String
Dim EscACW As String
' add the text of amrquee and creat a html webpage

Queue1 = "Escalations ="

EscAvail = "People on Avail : " & Worksheets("Sheet2").Range("D3").Value
EscACW = "People on ACW : " & Worksheets("Sheet2").Range("D5").Value & vbCrLf
EscWait = "Calls Waiting : " & Worksheets("Sheet2").Range("B2").Value
UTime = "Updated Till :- " & Format(Time, "Hh:mm am/pm")

Open ThisWorkbook.Path & "\WNS_Update.htm" For Output As #1
Print #1, EscAvail; EscACW
Close #1
' add the webpage to webbrowser
Sheets(1).WebBrowser1.Navigate ThisWorkbook.Path & "\WNS_Update.htm"
' reduce the size of webbrowser
Sheets(1).WebBrowser1.Height = 30
Sheets(1).WebBrowser1.Width = 800

End Sub

The Output of above macro is :

People on Avail : 1People on ACW : 2

The Output I expect is :

People on Avail : 1
People on ACW : 2


Please help...

Thanks in advance.

 

[p45cal]

Not sure but worth a try:

Print #1, EscAvail
Print #1, EscACW

instead of

Print #1, EscAvail; EscACW

 

[Marc L]

Hi !

Or use vbNewLine : Print #1, EscAvail & vbNewLine & EscACW …
​