kswayze
Nov 7th, 1999, 09:17 AM
I am tying to build a simple shop ticket to use in my bussiness and want to save the completed ticket to a folder on my desktop.I also want to print two copies of the completed ticket.I am using this code:
Private Sub mnuSaveAs_Click()
On Error GoTo OpenError
CommonDialog1.Filter = "All Files (*.*)|*.*"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Label1.Caption = cmnSaveAs.FileName
Else
Label1.Caption = "No file selected"
End If
OpenError:
End Sub
How can I save it in a folder on my desktop instead of in Label1.Caption or is it not possible to do so.I would appreciate any help I could getform anyone whoi can tell me what I am doing wrong.Thank you ahead of time from a beginner in this experience.
Private Sub mnuSaveAs_Click()
On Error GoTo OpenError
CommonDialog1.Filter = "All Files (*.*)|*.*"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Label1.Caption = cmnSaveAs.FileName
Else
Label1.Caption = "No file selected"
End If
OpenError:
End Sub
How can I save it in a folder on my desktop instead of in Label1.Caption or is it not possible to do so.I would appreciate any help I could getform anyone whoi can tell me what I am doing wrong.Thank you ahead of time from a beginner in this experience.