blankDo[name_, xmin_, xmax_, ymin_, ymax_] :=   blank[name] =    Graphics[GridLines -> {Range[xmin, xmax], Range[ymin, ymax]},     GridLinesStyle -> {{Opacity[1/2], LightGray,        Dashed}, {Opacity[1/2], LightGray, Dashed}},     PlotRange -> {{xmin - 0.2, xmax + 0.2}, {ymin - 0.2, ymax + 0.2}},      AxesStyle -> {{LightGray, Dashed}, {LightGray, Dashed}},     Frame -> True,     FrameTicks -> {Range[xmin, xmax], Range[ymin, ymax]},     ImageSize -> Full];

blankDo["elf", -13, 13, -17, 20]

Export["a.pdf", blankDo["elf", -13, 13, -17, 20]]
Export["a.pdf", blankDo["elf", -13, 13, -17, 20], ImageSize -> Full]