OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 17-06-2012, 22:03
knowbodynow knowbodynow is offline
Senior Member
 
Join Date: Mar 2006
Location: Hatsukaichi near Hiroshima
Posts: 431
Default X6 Save a copy

I'm trying to save a copy of a file to a USB stick in the background. This is the code I tried:

Code:
Sub SaveToStick()

    If Dir("Q:\") <> "" Then
    
        ActiveDocument.SaveAsCopy ("Q:\" & ActiveDocument.name)
        MsgBox "Saved as Q:\" & ActiveDocument.name, vbInformation, "File Saved"
    
    ElseIf Dir("M:\") <> "" Then
    
        ActiveDocument.SaveAsCopy ("M:\" & ActiveDocument.name)
        MsgBox "Saved as M:\" & ActiveDocument.name, vbInformation, "File Saved"
    
    Else
    
        MsgBox "Please Insert USB Stick", vbCritical, "Oops"
    
    End If


End Sub
But this ends up with CorelDraw X6 showing the saved copy. How can I get the save to take place in the background? Thanks.
Reply With Quote
  #2  
Old 18-06-2012, 06:57
ddonnahoe's Avatar
ddonnahoe ddonnahoe is offline
Senior Member
 
Join Date: Jan 2004
Location: Louisville, KY
Posts: 552
Send a message via ICQ to ddonnahoe Send a message via AIM to ddonnahoe Send a message via MSN to ddonnahoe Send a message via Yahoo to ddonnahoe
Default

The only thing I can think of is after your USB copies are saved, resave the document to it's original location, that way that is the one being displayed.
__________________
Sean
Waiting for a ride in the T.A.R.D.I.S.
Reply With Quote
  #3  
Old 18-06-2012, 10:51
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,770
Blog Entries: 10
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default SaveAsCopy

I can confirm the behavior and agree, that it shouldn't change your ActiveDocument to the SavedCopy because this is the same behavior as SaveAs.

I will report it to Corel and see what they say.

-Shelby
Reply With Quote
  #4  
Old 20-06-2012, 20:38
knowbodynow knowbodynow is offline
Senior Member
 
Join Date: Mar 2006
Location: Hatsukaichi near Hiroshima
Posts: 431
Default

Thanks Shelby, I'll be interested to see what Corel say. I guess it's a bug.
Reply With Quote
  #5  
Old 21-06-2012, 15:39
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Hi.
As a work around maybe save the file, then move it if the usb directory is available.
~John
Reply With Quote
  #6  
Old 27-06-2012, 18:19
SteveDude SteveDude is offline
Senior Member
 
Join Date: Dec 2005
Location: Salina, Kansas USA
Posts: 149
Default O/T kind of...

You've been around here long enough, we need to start calling you SomeBodyNow
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Copy from DRAW to PP Keefster CorelDRAW/Corel DESIGNER VBA 7 25-04-2010 17:43
How can I copy an Envelope? RobC CorelDRAW/Corel DESIGNER VBA 13 11-04-2008 13:33
how to save multiple pages in coreldraw 12 OR how to save quality eps for animation kickingandscreaming General 2 19-08-2007 22:28
Copy Protect PDF ddonnahoe CorelDRAW/Corel DESIGNER VBA 2 07-08-2006 07:25
COPY DropShadow igor___ CorelDRAW/Corel DESIGNER VBA 1 28-03-2006 20:44


All times are GMT -5. The time now is 03:14.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com