Results 1 to 5 of 5

Thread: M3U printing?

  1. #1
    Variable Bitrate Stine161's Avatar
    Join Date
    Apr 2002
    Location
    Alberta Canada
    Posts
    233

    M3U printing?

    I would like to take a playlist and basicly print it out with track # and Track time in the play list so I know what song is where in the play list, I know there is a Print in HTML but it dont show the track EG.

    1. Artist "song name" (time:here)

    2. Artist "song name" (time:here)


    is there a program out there that would be able to do this for me? as it would save me loads of time every week that I make a new playlist with new songs

    THX!!

  2. #2
    Registered User
    Join Date
    Apr 2000
    Location
    New Concord, OH, USA
    Posts
    157
    Here is a word macro that I wrote to print a 2 column list of all the songs in an m3u file. Hope it helps.
    The document has a header and footer defined and I no longer print barcodes (used when I had the CueCat) so those sections have been commented out of the macro.



    Sub CreatePlaylist()
    '
    Selection.WholeStory
    Selection.Delete Unit:=wdCharacter, Count:=1

    'Selection.TypeText Text:="MP3Wrangler Playlist"
    'Selection.HomeKey Unit:=wdLine
    'Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Font.Bold = wdToggle
    'Selection.Font.Size = 24
    'Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

    'Selection.MoveDown Unit:=wdLine, Count:=1
    'Selection.TypeParagraph
    'Selection.TypeParagraph
    Selection.Font.Size = 8
    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft

    sn = 0
    Open "d:\mp3\master.m3u" For Input As 1
    While Not EOF(1)
    Line Input #1, rec$
    If Left$(rec$, 8) = "#EXTINF:" Then
    sn = sn + 1
    fc = InStr(rec$, ",")
    prtline$ = Format$(sn, "####") + ": " + Right$(rec$, Len(rec$) - fc)
    ' Selection.Font.Name = "Free 3 of 9"
    ' Selection.Font.Size = 28
    ' Selection.TypeText Text:="*" & Format$(sn, "####") & "*"
    ' Selection.TypeParagraph
    Selection.Font.Size = 8
    Selection.Font.Name = "Arial"
    Selection.TypeText Text:=prtline$
    Selection.TypeParagraph

    End If
    Wend
    Close 1
    Selection.HomeKey Unit:=wdStory
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    With Selection.PageSetup.TextColumns
    .SetCount NumColumns:=2
    .EvenlySpaced = True
    .LineBetween = True
    End With

    End Sub

  3. #3
    Variable Bitrate Stine161's Avatar
    Join Date
    Apr 2002
    Location
    Alberta Canada
    Posts
    233
    thx but I dont think I have word.....

  4. #4
    Maximum Bitrate
    Join Date
    May 2000
    Location
    Ft Gordon, GA
    Posts
    461
    ok i've never done a macro in word before. where do i go to put this code in? thanks,
    Etrik
    "if everything is under control, you're not going fast enough!"

  5. #5
    Registered User
    Join Date
    Apr 2000
    Location
    New Concord, OH, USA
    Posts
    157
    OK now.
    Alt+F8 to get to the macro dialog box.
    Type in name of macro, in this case CreatePlaylist
    press the Create button.
    Paste in the code between sub and end sub
    Save the macro
    Alt+Q to return to the document.

    to run
    Alt+F8 select the macro and press run...
    I have it setup as an autorun macro so when I open the document it automatically runs and rebuilds the list. All I have to do is print it....
    Let me know if you still can't get it and I'll try to help.

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •