INTERACT FORUM

Please login or register.

Login with username, password and session length
Advanced search  
Pages: [1]   Go Down

Author Topic: CD Library Printout  (Read 1733 times)

NickM

  • Citizen of the Universe
  • *****
  • Posts: 630
  • Simplicity isn't always best, but it's easy to fix
CD Library Printout
« on: December 14, 2006, 07:26:13 pm »

Does anyone know how to printout a CD album list like this?  2 CD's per page with track & artist details???



A while ago I printed a CD list with a thumbnail of the cover art, title, genre and artist.  It was a huge kludge, setting up a view in MC, cutting & pasting to Excel and running a macro.  If anyone is interested, I am happy to forward the macro (!)  That was about 10 CD's per page.
Logged

Berg

  • Regular Member
  • Recent member
  • *
  • Posts: 33
Re: CD Library Printout
« Reply #1 on: December 14, 2006, 08:55:51 pm »

I would be thrilled if you could share the macro. I have been looking for one solution for sometime and I still haven't found something that works ... for me ;)

I would like to have something I could print and/or put on a web page.

TIA.
Logged

NickM

  • Citizen of the Universe
  • *****
  • Posts: 630
  • Simplicity isn't always best, but it's easy to fix
Re: CD Library Printout
« Reply #2 on: December 14, 2006, 09:30:22 pm »

As I said, this is a REAL kludge, but here goes anyway:-

Create a view scheme with the columns as follows;
Album, Album Artist(Auto), Genre, Filename (path)

List as below; cut & past all together without the spaces which are only included for reading convenience.  The –[Genre] is for the types of CD’s that I do NOT printout, so it could be just[Genre] and include the ones intended for printout.

-[Genre]=[Club],[Dance],[Deep House],[Electronic],[Electronica],[General Rock],[Hip-Hop],[House],[Indie],[Lounge],[Misc],[New Wave],[Newage],[Phunk],[R&B],[Rap],[Rap; R&B],[Reggae],[Retro Cool],[Techno],[Trance],[Trip Hop],[Trip-Hop]

~limit=-1,1,[Filename (path)]

[Media Type]=[Audio]


Then create 3 Excel macros as follows:-

Sub cover_art()
'Get the cover art for each line entry
'Set ROW1 to height 85.2 to get the alignment correct.
'Then change ROW1 to something smaller, like 22 for printout.
Dim pic_name As String
Set myDocument = Worksheets(1)
Range("g2").Select
For n = 1 To 1000
On Error Resume Next
    pic_name = ActiveCell.Formula
    If Len(pic_name) < 10 Then GoTo finished
    myDocument.Shapes.AddPicture pic_name, True, True, 0, 84.75 * n, 80, 80
    ActiveCell.Offset(1, 0).Select
Next n
finished:
End Sub


Sub clean()
'Get rid of exsiting pictures in the spreadsheet.
'Increase the upper limit of 10,000 if too many pictures
For n = 1 To 100000
    On Error Resume Next
    ActiveSheet.Shapes("Picture " & Str$(n)).Delete
Next n
End Sub


Sub replace()
'This replaces the things that MC changes in its naming convention.
'So far I have found ':', '?' and '"' But there MAY BE OTHERS...
    Columns("G:G").Select
    Selection.replace What:=":", Replacement:="_", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Selection.replace What:="/", Replacement:="_", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Selection.replace What:="""", Replacement:="_", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
'   Cannot search and replace '?' as this is a wild card...  Have to use the CHR$ value.
'   Selection.replace What:="?", Replacement:="_", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub


1. From the view list in MC, cut and paste into the spreadsheet.  Paste from cell B1, allowing column A to be used for the cover art.

2. Put a formula into each cell in column F to concatenate the folder.jpg to the filename thus:- F2  =E2&"Folder.jpg"
3. Copy the Value from column F to column G (edit, copy, edit, paste special)
4. Run the replace macro.
5. Run the cover_art macro
6. Keep your fingers crossed...
Logged

Berg

  • Regular Member
  • Recent member
  • *
  • Posts: 33
Re: CD Library Printout
« Reply #3 on: December 15, 2006, 06:04:27 am »

Thanks - I'll give this a try.
Logged

skylarplane

  • Regular Member
  • Galactic Citizen
  • ****
  • Posts: 370
  • nothing more to say...
Re: CD Library Printout
« Reply #4 on: December 15, 2006, 11:57:44 am »

That's waaaayyyyy tooooo difficult for us non-geekerless guys.  This should be a new feature with better printing options.  I'd like just to be able to select individual piece or groups in my music list and print them off.

So I'm hoping the guys up stairs will start working on printing options soon.

thanks,

Skylar
Logged
Pages: [1]   Go Up