#Mathematica 101 99 98
This rasterizes the expression, obtains the binary image data, converts each 1 to "#", each 0 to "" (empty space) and displays output in a 12 by 130 character grid.
GraphicsGrid[ImageData@ImageResize[Binarize@Rasterize@Style["Hello-World!",99],130]
/.{1→"",0→"#"}]
One character economized thanks to Jonathan Van Matre.