找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 527|回复: 0

[求助]:请教高手一个VBA使用API问题(关于打印的)

[复制链接]
发表于 2004-12-20 10:04:47 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
在打印的API有一个Setjob,我查Msdn,只有关于C++的
typedef
typedef struct _JOB_INFO_2 { // ji2
    DWORD      JobId;
    LPTSTR     pPrinterName;
    LPTSTR     pMachineName;
    LPTSTR     pUserName;
    LPTSTR     pDocument;
    LPTSTR     pNotifyName;
    LPTSTR     pDatatype;
    LPTSTR     pPrintProcessor;
    LPTSTR     pParameters;
    LPTSTR     pDriverName;
    LPDEVMODE  pDevMode;
    LPTSTR     pStatus;
    PSECURITY_DESCRIPTOR pSecurityDescriptor;
    DWORD      Status;
    DWORD      Priority;
    DWORD      Position;
    DWORD      StartTime;
    DWORD      UntilTime;
    DWORD      TotalPages;
    DWORD      Size;
    SYSTEMTIME Submitted;
    DWORD      Time;
    DWORD      PagesPrinted ;
} JOB_INFO_2;  

typedef struct _JOB_INFO_1 {    // ji1
    DWORD  JobId;
    LPTSTR pPrinterName;
    LPTSTR pMachineName;
    LPTSTR pUserName;
    LPTSTR pDocument;
    LPTSTR pDatatype;
    LPTSTR pStatus;
    DWORD  Status;
    DWORD  Priority;
    DWORD  Position;
    DWORD  TotalPages;
    DWORD  PagesPrinted;
    SYSTEMTIME Submitted;
} JOB_INFO_1;

但是我看到网上一个VB的ADDJOB_INFO_1
Type ADDJOB_INFO_1 ' 8 Bytes
lpPath As Long
JobId As Long
End Type
也找不到JOB_INFO_1

然后自己准备照着改一个
Type JOB_INFO_1
    LONG  JobId 'DWORD  JobId;
    String pPrinterName 'LPTSTR pPrinterName;
    String pMachineName 'LPTSTR pMachineName;
    String pUserName 'LPTSTR pUserName;
    String pDatatype 'LPTSTR pDocument;
    String pDatatype 'LPTSTR pDatatype;
    String pStatus 'LPTSTR pStatus;
    LONG Status 'DWORD  Status;
    LONG Priority 'DWORD  Priority;
    LONG Position 'DWORD  Position;
    LONG TotalPages 'DWORD  TotalPages;
    LONG PagesPrinted 'DWORD  PagesPrinted;
    SYSTEMTIME Submitted
End Type

Type SYSTEMTIME ' 16 Bytes
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type

不知道是否可行,还有就是EnumJobs 和 GetJob ,setjob 的用法不是很清楚.

我的原意是将"Sever//print1"里面的job先列出来,自动找出属于我自己的,再把我的job的优先级调为2(我有这个权限,双击打印机后可以手动调job的优先级).

请高手门出点意见,最好是给出类似的代码给我参考一下.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-9-29 05:35 , Processed in 0.331694 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表