Graphics 图形输出和文本

我一直在寻找一种更准确地“看到”图片与文本结合的结果的方法。 当我创建一些形状时：

  g1 = Graphics[{White, EdgeForm[Directive[Thick, Black]] , 
   Rectangle[{0, 0}, {19, 28}], LightGray, 
   Rectangle[{1, 19}, {9, 27}], Rectangle[{10, 19}, {18, 27}], 
   Rectangle[{1, 23}, {2, 27}]}, 
  Epilog -> { 
    Inset[Text[Style["Information      Here", FontSize -> 8]], {1, 
      25}, {Center, Top}, Automatic, {0, 1}], 
    Inset[Text[Style["some more stuff", FontSize -> 8]], {2, 
      25}, {Center, Bottom}, Automatic, {0, 1}]}]

它显示了一个缩小的版本，但文本不适合矩形。 但是，当我将其移植到pdf时，它会适合矩形。有没有办法查看输出 更多吗

编辑：

这是我将环境更改为打印输出后的屏幕打印（使用Windows剪贴工具）。

在此之后，我将g1转换为final1：

final1 = Show[g1, AspectRatio -> Automatic, 
  PlotRange -> {{-0.5, 19.5}, {-0.5, 28.5}}]

这显示了相同的结果，然后我导出为PDF

Export["final1.pdf", Show[final1, ImageSize -> {20 cm, 29 cm}]]

我打开PDF（AdobeReader9）并缩放到40%（用于比较）。在这里，你可以看到它在acrobat和纸上的样子

这是Adobe的100%

正如你所看到的，两者有着明显的区别。我甚至可以添加一行文字

编辑2：

Following Alexey suggestion with code:

In[27]:= SetOptions[$FrontEndSession, 
 PrintingStyleEnvironment -> "Printout"]

In[28]:= Export["finalprintout1.pdf", 
 Show[final1, ImageSize -> {20 cm, 29 cm}]]

Out[28]= "finalprintout1.pdf"

In[29]:= SetOptions[$FrontEndSession, 
 PrintingStyleEnvironment -> "Working"]

In[30]:= Export["finalworking.pdf", 
 Show[final1, ImageSize -> {20 cm, 29 cm}]]

Out[30]= "finalworking.pdf"

它会产生相同的PDF。我没有任何区别？

将屏幕环境切换到“打印输出”（菜单

格式->屏幕环境->打印输出），屏幕上的图形将与导出PDF中的图形完全相同。请勿手动调整笔记本内的图形大小！只需增加放大倍数即可看到细节

这种行为的原因是

另外，这个问题是相关的：“。也相关：“。如果希望按默认外观导出图形，请尝试

编辑

更明确的例子：

g1 = Graphics[{White, EdgeForm[Directive[Thick, Black]], LightGray, 
   Rectangle[{1, 23}, {2, 27}]}, 
  Epilog -> {Inset[
     Text[Style["Information      Here", FontSize -> 50]], {1, 
      25}, {Center, Top}, Automatic, {0, 1}], 
    Inset[Text[Style["some more stuff", FontSize -> 50]], {2, 
      25}, {Center, Bottom}, Automatic, {0, 1}]}]

尝试在屏幕环境之间切换，您将看到不同之处。尝试将

导出为PDF并比较：

Export["C:\\1.pdf", g1]

现在评估：

SetOptions[$FrontEndSession, PrintingStyleEnvironment -> "Working"]

再次导出：

Export["C:\\2.pdf", g1]

比较一下

---

要以更可读的方式格式化代码，请选择代码块，然后按{}按钮。我已经提交了一个编辑来做这件事。@Chris Walton，Thx我从四个空格开始，但这不起作用。就像用IExplorer添加图片一样。。不过是用Chrome做的！在Windows XP上使用Mathematica 7时，即使我导出为PDF，文本也无法放入框中。如果为图形指定适当的图像大小，会发生什么情况？（请记住PDF导出的ImageResolution选项，默认设置为72 dpi。）@Alexey您能发布生成的图像吗？我无法通过[打印输出]获得期望的结果：（@belisarius问题中建议的图形作为说明是非常蹩脚的。实际上，我没有得到文本“适合矩形”的PDF格式。但是仔细比较放大率300%后，我发现几乎没有差异（在文本位置和大小上）取决于屏幕环境，它与我在PDF中看到的内容相匹配。@Alexey谢谢。我以为你猜对了，我不见了something@belisarius请在“编辑”部分尝试清除的示例图形。@Alexey是的，示例很蹩脚。我稍后会更新该问题。我尝试了“打印输出环境”设置，效果稍好，但仍然看到dif引用。@Mr向导我将Vista与mm8.01一起使用。