Export["1.png", InputNotebook[]]如何输出带有in out 的长图

Question

今天用MMA输出一个代码页面，可是输出后发现页面宽度比较小，把输入输出符号in[] out[]都省略了，想问一下，如何提高输出宽度，以及输出质量，最后不要让Export["1.png", InputNotebook[]]输出在图片上...

a = 1; b = 3; c = -4; d = 1;
A = b^2 - 3 a c
B = b c - 9 a d
CC = c^2 - 3 b d       (*由于C在MMA中已经被系统占用，这里用CC*)
Export["计算一元三次方程.png", InputNotebook[]]

Comments

刚才忘了resolution的事情了，已经添加

Answer 1

问题1：输出没有Cell Label

这应该是一个选项的问题而不是Window宽度的问题，对比如下：

观察以下效果：

得到的a.png

更改选项：

得到：

问题2：删去最后一行

复制以下code到同一个cell里面

SetOptions[InputNotebook[], CellLabelAutoDelete -> False];
temp = InputNotebook[];
SelectionMove[temp, Previous, CellGroup];
NotebookDelete[temp];
Export["a.png", temp]

执行前：

执行后：

导出的文件：

问题3：提高输出质量

最后一行代码可以改为

Export["a.png", temp, ImageResolution -> 200]

后面那个数你可以自己看着调整

Comments

太感谢了 输出技巧算是基本掌握了