vba, .printout set to 1 page only
Hello everyone,
I have created a delivery note which take data from some Forms, copies them to a sheet then the data from that sheet is used to populate an email table and sent by .send though outlook. I have the below code. at the end I have a .printout function that works fine but it takes 2 pages because of the email signature which I feel is a waste of paper so I have been trying to force the code to print out just 1 page. The below is what I have but is still printing out 2 pages. help please :)
Code:
strbody = "<table cellpadding='2' align='left' style='color: #cc3333; width: 600px; min-width: 600px; text-align: center; background: #ffcc00; font-size: 16px'>" & _
"<tr><td><img src='http://www.stepstone.de/upload_de/logo/D/logoDHL_Global_Forwarding_40393DE.gif' /></td><td colspan='2' style='font-size: 36px; font-weight: bolder; text-align: center'>Delivery Instruction</td></tr>" & _
"<tr><td colspan='3' style='border-bottom: 2px solid #cc3333'></td></tr>" & _
"<tr><td colspan='3' style='text-align: left; text-indent: 30px'>Dear " & ToName.Value & ",</td></tr>" & _
"<tr><td colspan='3' style='text-align: center; vertical-align: top; font-weight: bold'>Please can you arrange the delivery to " & oTown.Value & ", " & " as per the following details.</td></tr>" & _
"<tr><td colspan='3' style='font-weight: bolder; font-size: 20px; color: #ffcc00; background: #cc3333'>Shipment Details</td></tr>" & _
"<tr><td colspan='3' style='height: 5px'></td></tr>" & _
"<tr><td>Our ref: " & oFile.Value & "</td><td>Vessel: " & oVessel.Value & "</td><td>ETA: " & oETA.Value & "</td></tr>" & _
"<tr><td>Container: " & oCont1.Value & "</td><td>Size: " & oSize1.Value & "</td><td>Bill of Lading: " & oBL.Value & "</td></tr>" & _
"<tr><td>Weight: " & oWeight1.Value & " Kgs" & "</td><td style='text-align: left'>Port of Discharge: " & oPOD.Value & "</td>" & _
"<td>Goods: " & oGoodsDesc1.Value & "</td></tr>" & _
"<tr><td colspan='3' style='height: 5px'></td></tr>" & _
"<tr><td colspan='3' style='font-weight: bolder; font-size: 20px; color: #ffcc00; background: #cc3333'>Delivery address</td></tr>" & _
"<tr><td colspan='3' style='height: 5px'></td></tr>" & _
"<tr><td colspan='3'>" & oDelName.Value & "<br />" & oLine1.Value & "<br />" & oLine2.Value & "<br />" & oTown.Value & "<br />" & oCounty.Value & "<br />" _
& oPC.Value & "</td></tr>" & _
"<tr><td colspan='3' style='height: 5px'></td></tr>" & _
"<tr><td colspan='3' style='font-weight: bolder; font-size: 20px; color: #ffcc00; background: #cc3333'>Booking details</td></tr>" & _
"<tr><td colspan='3' style='height: 5px'></td></tr>" & _
"<tr><td colspan='3'>Date: " & oDelDateTime1.Value & "</td></tr>" & _
"<tr><td colspan='3'>Booking Ref: " & oDelRef1.Value & "</td></tr>" & _
"<tr><td colspan='3'><b><u>Special Instructions:</u></b></td></tr>" & _
"<tr><td colspan='3'>" & oSpecIns1.Value & "</td></tr>" & _
"</table>"
strSig = "<table align='left'>" & _
"<tr><td style='font-size: 0.4em'>" & Signature & "</td></tr>" & _
"</table>"
StrMainTable = "<table><tr><td>" & strbody & "</td></tr>" & _
"<tr><td>" & strSig & "</td></tr></table>"
On Error Resume Next
With OutMail
.to = oSendto.Value
.CC = ""
.BCC = ""
.Subject = "Delivery Booking to " & oTown.Value & ", " & "Container: " & oCont1.Value & ", " & "Vessel: " & oVessel.Value & _
", " & "Bill of Lading: " & oBL.Value & ", " & "Our Ref: " & oFile.Value
.HTMLBody = StrMainTable
.HTMLBodyFormat = olFormatHTML
.Zoom = False
.HTMLBody.FitToPagesWide = 1
.HTMLBody.FitToPagesTall = 1
.PrintOut
.Send
End With
Set OutApp = Nothing
Set OutMail = Nothing
