by Philip Crown (2 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 5th November 2009
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Prints out 11 music 5 line blank staves(staffs)on Letter paper. Easily modified to add staves or make tab paper.
Printer.ScaleMode = vbPoints
Printer.ForeColor = vbBlack
' makes 11 staves on Letter paper.Easily modified by adding or subtracting loops
'or changing the variables ,colour etc.
For a = 10 To 14
Printer.Line (20, a * 6)-(700, a * 6)
Next a
For a = 20 To 24
Printer.Line (20, a * 6)-(700, a * 6)
Next a
For a = 30 To 34
Printer.Line (20, a * 6)-(700, a * 6)
Next a
For a = 40 To 44
Printer.Line (20, a * 6)-(700, a * 6)
Next a
For a = 50 To 54
Printer.Line (20, a * 6)-(700, a * 6)
Next a
For a = 60 To 64
Printer.Line (20, a * 6)-(700, a * 6)
Next a
For a = 70 To 74
Printer.Line (20, a * 6)-(700, a * 6)
Next a
For a = 80 To 84
Printer.Line (20, a * 6)-(700, a * 6)
Next a
For a = 90 To 94
Printer.Line (20, a * 6)-(700, a * 6)
Next a
For a = 100 To 104
Printer.Line (20, a * 6)-(700, a * 6)
Next a
For a = 110 To 114
Printer.Line (20, a * 6)-(700, a * 6)
Next a
Printer.EndDoc
End Sub
No comments have been posted about Prints out 11 music 5 line blank staves(staffs)on Letter paper. Easily modified to add staves or ma. Why not be the first to post a comment about Prints out 11 music 5 line blank staves(staffs)on Letter paper. Easily modified to add staves or ma.