Private Sub CommandButton1_Click()
    Dim sName As String
    Dim p As Variant
    Dim sTemp As Worksheet, chrt As Chart
    p = ThisWorkbook.Path
    sName = TextBox1.Value
    DoEvents
    Application.SendKeys "(%{1068})"
    DoEvents
    Set sTemp = Workbooks.Add.Worksheets(1)
    Set chrt = sTemp.ChartObjects.Add(Left:=0, Top:=0, Width:=250, Height:=150).Chart
    With chrt
        .ChartArea.Border.LineStyle = 0
        .Paste
        .Export Filename:=p & "\" & sName & ".jpg", FilterName:="jpg"
        chrt.ExportAsFixedFormat xlTypePDF, Filename:=p & "\" & sName
        .Parent.Delete
    End With
    sTemp.Parent.Close 0
End Sub

Private Sub Print_Form() 
Dim STDprinter As String 
STDprinter = Application.ActivePrinter 
Application.ActivePrinter = "doPDF v7" 
Me.PrintForm 
Application.ActivePrinter = STDprinter 
End Sub