Thank you. A good simple clear concrete example makes it much more likely to give you an answer like you are looking for.
In[1]:= Show[{
ListPlot[Table[{x, x*x}, {x, 1, 5, 1}], Filling -> Bottom, PlotStyle -> {Black, PointSize[0.015]}],
Graphics[Table[Line[{{1, x^2}, {x, x^2}}], {x, 1, 5, 1}]]
}]
Out[1]= ...PlotSnipped...
Then, only if you really need to, you spend minutes or hours or days fiddling with the hundreds of options and directives to adjust the style to try to get close to exactly what you want.