| tiancao1001 于 2009-01-23 10:22 AM 发表评论： |
winXP SP2 IIS 出现 “服务没有及时响应启动或控制请求” 错误解决方
是删除系统自动更新 KB939373。OK
|
|
| 查看所评论的日志：田草日志 |
| ahhfsy 于 2009-01-20 10:36 AM 发表评论： |
真是个好办法。
请问一下：
使用CAD的VBA 创建一个打印程序，打印图纸空间（图纸空间比较多），使用上一次打印设置怎么搞？谢谢
这是我的代码：
Private Sub CommandButton2_Click()
'
' 建立要打印的图纸空间布局
Dim strLayouts(0 To 999) As String
Dim varLayouts As Variant
Dim n As Integer
Dim m As Integer
For m = 0 To ListBox1.ListCount - 1
strLayouts(m) = ListBox1.List(m)
'MsgBox (ListBox1.List(m))
Next m
varLayouts = strLayouts
ThisDrawing.Plot.SetLayoutsToPlot varLayouts
' 将打印份数设置为 1
ThisDrawing.Plot.NumberOfCopies = 1
' 初始化打印
'ThisDrawing.Plot.PlotToDevice ThisDrawing.ModelSpace.Layout.ConfigName
ThisDrawing.Plot.PlotToDevice
---------------------------------------------------------------------------
我用他打印listbox里显示的图纸空间，可我不晓得怎么使用“上一次打印”的样式，请帮帮忙，谢谢
|
|
| 查看所评论的日志：田草CAD工具箱(VBA)安装程序（2009.04.13） |
| hshh 于 2009-01-12 04:52 PM 发表评论： |
|
| 查看所评论的日志：CAD致命错误处理办法【转帖】 |
| tiancao1001 于 2009-01-12 03:32 PM 发表评论： |
看这几年的CCTV半小时新闻联播的总结：
前10分钟，领导们都很忙；
中间10分钟，全国人民都很幸福；
后10分钟，国外生活在水深火热中 |
|
| 查看所评论的日志：田草日志 |
| dfgd 于 2009-01-10 03:30 PM 发表评论： |
|
| 查看所评论的日志：Auto CAD vba 怎样 创建匿名块 |
| tiancao1001 于 2009-01-09 03:02 PM 发表评论： |
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2009-01-06 04:56 PM 发表评论： |
Private Enum CSIDL_VALUES
CSIDL_DESKTOP = &H0
CSIDL_INTERNET = &H1
CSIDL_PROGRAMS = &H2
CSIDL_CONTROLS = &H3
CSIDL_PRINTERS = &H4
CSIDL_PERSONAL = &H5
CSIDL_FAVORITES = &H6
CSIDL_STARTUP = &H7
CSIDL_RECENT = &H8
CSIDL_SENDTO = &H9
CSIDL_BITBUCKET = &HA
CSIDL_STARTMENU = &HB
CSIDL_MYDOCUMENTS = &HC
CSIDL_MYMUSIC = &HD
CSIDL_MYVIDEO = &HE
CSIDL_DESKTOPDIRECTORY = &H10
CSIDL_DRIVES = &H11
CSIDL_NETWORK = &H12
CSIDL_NETHOOD = &H13
CSIDL_FONTS = &H14
CSIDL_TEMPLATES = &H15
CSIDL_COMMON_STARTMENU = &H16
CSIDL_COMMON_PROGRAMS = &H17
CSIDL_COMMON_STARTUP = &H18
CSIDL_COMMON_DESKTOPDIRECTORY = &H19
CSIDL_APPDATA = &H1A
CSIDL_PRINTHOOD = &H1B
CSIDL_LOCAL_APPDATA = &H1C
CSIDL_ALTSTARTUP = &H1D
CSIDL_COMMON_ALTSTARTUP = &H1E
CSIDL_COMMON_FAVORITES = &H1F
CSIDL_INTERNET_CACHE = &H20
CSIDL_COOKIES = &H21
CSIDL_HISTORY = &H22
CSIDL_COMMON_APPDATA = &H23
CSIDL_WINDOWS = &H24
CSIDL_SYSTEM = &H25
CSIDL_PROGRAM_FILES = &H26
CSIDL_MYPICTURES = &H27
CSIDL_PROFILE = &H28
CSIDL_SYSTEMX86 = &H29
CSIDL_PROGRAM_FILESX86 = &H2A
CSIDL_PROGRAM_FILES_COMMON = &H2B
CSIDL_PROGRAM_FILES_COMMONX86 = &H2C
CSIDL_COMMON_TEMPLATES = &H2D
CSIDL_COMMON_DOCUMENTS = &H2E
CSIDL_COMMON_ADMINTOOLS = &H2F
CSIDL_ADMINTOOLS = &H30
CSIDL_CONNECTIONS = &H31
CSIDL_COMMON_MUSIC = &H35
CSIDL_COMMON_PICTURES = &H36
CSIDL_COMMON_VIDEO = &H37
CSIDL_RESOURCES = &H38
CSIDL_RESOURCES_LOCALIZED = &H39
CSIDL_COMMON_OEM_LINKS = &H3A
CSIDL_CDBURN_AREA = &H3B
CSIDL_COMPUTERSNEARME = &H3D
CSIDL_FLAG_PER_USER_INIT = &H800
CSIDL_FLAG_NO_ALIAS = &H1000
CSIDL_FLAG_DONT_VERIFY = &H4000
CSIDL_FLAG_CREATE = &H8000
CSIDL_FLAG_MASK = &HFF00
End Enum |
|
| 查看所评论的日志：VB 获取系统特殊文件夹 |
| tiancao1001 于 2009-01-06 01:03 PM 发表评论： |
VB默默导入reg注册表文件
Private Sub Command1_Click()
Dim RegStr As String
RegStr = "regedit /s " & App.Path & "\reg.reg"
Shell RegStr, vbHide
End Sub |
|
| 查看所评论的日志：田草日志 |
[84] [85] [86] [87] [88] [89] [90] [91] [92] [93] ... [143] 