<<NoFillHistogram.m

NoFillHistogram[Table[Random[],{10}]]

NoFillHistogram[Table[Evaluate[Table[Random[],{35}]+i],{i,6}],
        HistoStyle->{Automatic,
                     GrayLevel[1/3],
                     {Dashing[{.01}],GrayLevel[2/3]}},
        Align->{Automatic,5},
        HistoLegend->{A,B,C,D,E,F}]

NoFillHistogram[{{1,3},{2,5},{4,7},{5,12}},
	Presorted->True]

NoFillHistogram[Table[{{1,3},{2,6},{5,9},{4,7},{7,3}},{2}],
	HistoStyle->{Automatic,Dashing[{.01}]},
	Align->{0,8},
	NoEntry->{Automatic,.3}]