-
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.
-
I think i know what you're trying to do
Code:
<path i.e. c:\>.SaveFile CommonDialog1.Filename 'one line
hope this helps
------------------
DiGiTaIErRoR
[This message has been edited by DiGiTaIErRoR (edited 11-08-1999).]