Post Reply 
41 Programs for 7470 Plotter - Why so few?
08-10-2016, 11:56 PM (This post was last modified: 08-10-2016 11:58 PM by Sylvain Cote.)
Post: #25
RE: 41 Programs for 7470 Plotter - Why so few?
(08-10-2016 07:37 AM)Sylvain Cote Wrote:  
(08-10-2016 05:15 AM)Ángel Martin Wrote:  (or can you do that on your end as well using the Excel sheet I sent you? The compile macro is on it as well...)

I have throw out Microsoft from my world more than 10 years ago with the exception of one VM running a plain version of Windows 7 32 bits for HP stuff applications
and one installation of Microsoft Office 2011 for Mac (equivalent to Microsoft Office 2010 for Windows) to open legacy documents, everything else runs on macOS, Linux and BSD's.
Microsoft Office 2011 for Mac does support VBA applications, so may be it will work ...

I just tried to run the CreateRom macro and I get several errors.
I have replaced Set SaveAsDialog = Application.FileDialog(msoFileDialogSaveAs) by SaveAsDialog = Application.Dialogs(xlDialogSaveAs).Show
because the FileDialog does not exist in the macOS implementation of Excel but I still get other errors, it's late (3:24), I will give it a second look after a couple hours of sleep.

I had to simplify the script because the file dialog is a pain to use and mostly broken on macOS.

I have hard coded the filename as a quick and dirty fix (for now)
Code:
Sub CreateRom()
   ...
    Dim CreateFileName As String
   ...
    SheetNumber = Worksheets(1).Cells(6, 1).Value
    CreateFileName = "FDD240G:Users:sycote:grafik-" & SheetNumber & ".rom"
    Open CreateFileName For Binary As #1
   ...
End Sub

With this fix the CreateRom function generate ROM files identical to the ones you gave me.
Now I can correct the code and safely assume that the generated code will work.

Sylvain

edit: typos
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: 41 Programs for 7470 Plotter - Why so few? - Sylvain Cote - 08-10-2016 11:56 PM



User(s) browsing this thread: 2 Guest(s)