• Jereme,

    here is my PrintObject string.....

    Dim MyPrintObject As New TextPrint("<B>Equipment Agreement Form</B>" _

    + vbCrLf + vbCrLf + "<B>Name: </B>" + Trim(oEmployee.LastName) + ", " + Trim(oEmployee.FirstName) + vbCrLf + "<B>Title: </B>" + Trim(oEmployee.Title) + vbCrLf + "<B>Department: </B>" + Trim(oEmployee.Department) + vbCrLf + "<B>Site: </B>" + oEmployee.Site + vbCrLf + "<B>Floor: </B>" + Trim(oEmployee.Floor) + vbCrLf + "<B>Start Date: </B>" + Trim(oEmployee.StartDate) + vbCrLf + "<B>Transfer Date: </B>" + Trim(oEmployee.TransferDate) + vbCrLf + "<B>Termination date: </B>" + oEmployee.TermDate + vbCrLf + "________________________________________________________________________" + vbCrLf + "<B>Room Number: </B>" + Trim(oEmployee.RoomNumber) + vbCrLf + "<B>Telephone: </B>" + Trim(oEmployee.TelephoneLine) + "<B> Extension: </B>" + Trim(oEmployee.Extension) + vbCrLf + "<B>Long Distance Code: </B>" + Trim(oEmployee.LDcode) + vbCrLf + "<B>Meditech Access: </B>" + Trim(oEmployee.MedTechIssu) + "<B> Issue Date: </B>" + Trim(oEmployee.MedTechIssued) + vbCrLf + "<B>PC: </B>" + Trim(oEmployee.PcIssued) + "<B> Issue Date: </B>" + Trim(oEmployee.PCDate) + vbCrLf + "<B>Outlook: </B>" + Trim(oEmployee.EmailIssued) + "<B> Issue Date: </B>" + Trim(oEmployee.EmailIssueDate) + vbCrLf + "<B>Internet: </B>" + Trim(oEmployee.InternetIssued) + "<B> Issue Date: </B>" + Trim(oEmployee.InternetDate) + vbCrLf + "<B>Transcription: </B>" + Trim(oEmployee.TranscriptionID) + "<B> Issue Date: </B>" + Trim(oEmployee.TranscriptionDate) + vbCrLf + "<B>Pager: </B>" + Trim(oEmployee.PagerIssued) + "<B> Issue Date: </B>" + Trim(oEmployee.PagerDate) + vbCrLf + "<B>Cell Phone: </B>" + Trim(oEmployee.CellIssued) + "<B> Issue Date: </B>" + vbCrLf + "<B>Other Equipment: </B>" + vbCrLf + vbCrLf + "<B>Keys: </B>" + vbCrLf + vbCrLf + "<B>Parking Permit: </B>" + Trim(oEmployee.ParkingID) + " <B>Permit Number: </B>" + Trim(oEmployee.PermitNumber) + vbCrLf + "<B>Issue Date: </B>" + Trim(oEmployee.ParkingID) + vbCrLf + "<B>Handicap: </B>" + Trim(oEmployee.handicap) + "<B> Lot Assigned: </B>" + Trim(oEmployee.Lot) + vbCrLf + "<B>Badge: </B>" + Trim(oEmployee.BadgeID) + "<B> Issue Date: </B>" + Trim(oEmployee.BadgeID) + vbCrLf + vbCrLf +  "<I>I agree to return items and equipmnet to my department manager at time of termination. Failure to return items or equipment will result in value of items to be withheld from final paychek or accrued leave.</I>" + vbCrLf + "<B>Employee Signature: </B>" + "____________________" + vbCrLf + "<B>Print Name: </B>" + "____________________" + vbCrLf + "<B>Date: </B>" + "______/_____/_________", defPrinter)

     

    this code will print the Bolded line as ....( and in Italics too)

    " ag ee  o  e u n   ems an  equ pmne  o m   epa  men  manage  a   me o   e m na  on.  a u e  o  e u n  ems o  equ pmen    esu   n a ue o  ems  o be    hh   om   na  pa che  o  acc ue   ea e."