I have a text box (txtMisc) that user can enter a message, When cmdAdd_Click the text is written to a picture box (picDisplay) Then when cmdPrint_Click contents of picDisplay are printed.

Reality hits when the text is shown in the picture box - it appears twice, once in it's full form, the second with the last two letters missing. The text prints correctly , once when printed.

Private Sub cmdADD_Click()
Form4.picDisplay.Print (" ") & (txtMisc.Text) ' & vbNewLine
strValue = strValue & (txtMisc.Text)
'PrintEx (txtMisc.Text), , , , Arial, 20, peBold, vbRed
txtMisc.Text = (" ")

If Len(strValue) > 0 Then
strPrint = strPrint & strValue 'store for printing
'trim last vbnewline
strValue = Left(strValue, Len(strValue) - Len(vbNewLine))
picDisplay.Print strValue
End If

strValue = " "

End Sub


Private Sub cmdPrint_Click()
If Len(strPrint) = 0 Then Exit Sub
'trim last vbnewline
strPrint = Left(strPrint, Len(strPrint) - Len(vbNewLine))
Printer.Print strPrint
Printer.EndDoc


picDisplay.Picture = LoadPicture("")
picDisplay.CurrentX = 0
picDisplay.CurrentY = 0
strPrint = ""
End Sub