返回列表 上一主題 發帖

[發問] DUPLEX-如何將下述語法應用至VBA7

ben...

帖子
2 
主題
2 
精華
0 
積分
15 
點名
0  
作業系統
win 7 
軟體版本
7600 
閱讀權限
10 
性別
男 
來自
新竹 
註冊時間
2012-7-25 
最後登錄
2015-7-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-1-30 21:46 | 只看該作者

[發問] DUPLEX-如何將下述語法應用至VBA7

  1. Option Explicit

  3. Private Sub Command1_Click()
  4. Dim MyWord As Object
  5. Set MyWord = CreateObject("Word.application")
  6. MyWord.Visible = True
  7. MyWord.documents.Open FileName:=CurDir & "\工具清點單.doc"
  8. SetPrinterDuplex Printer.DeviceName, 2
  9. MyWord.PrintOut
  10. MyWord.documents.Close 'FileName:=CurDir & "\工具清點單.doc"
  11. ' SetPrinterDuplex Printer.DeviceName, 1
  12. MyWord.documents.Open FileName:=CurDir & "\勤前會議.doc"
  13. SetPrinterDuplex Printer.DeviceName, 2
  14. MyWord.PrintOut
  15. MyWord.documents.Close
  16. MyWord.documents.Open FileName:=CurDir & "\勤務分配表.doc"
  17. SetPrinterDuplex Printer.DeviceName, 2
  18. MyWord.PrintOut
  19. MyWord.documents.Close
  20.       
  21.       
  22. MyWord.Quit
  23. Set MyWord = Nothing
  24. End Sub


  27. 模組:

  29. Option Explicit

  31.    Public Type PRINTER_DEFAULTS

  33.        pDatatype As Long
  34.        pDevmode As Long
  35.        DesiredAccess As Long
  36.    End Type

  38.    Public Type PRINTER_INFO_2
  39.        pServerName As Long
  40.        pPrinterName As Long
  41.        pShareName As Long
  42.        pPortName As Long
  43.        pDriverName As Long
  44.        pComment As Long
  45.        pLocation As Long
  46.        pDevmode As Long       ' Pointer to DEVMODE
  47.        pSepFile As Long
  48.        pPrintProcessor As Long
  49.        pDatatype As Long
  50.        pParameters As Long
  51.        pSecurityDescriptor As Long  ' Pointer to SECURITY_DESCRIPTOR
  52.        Attributes As Long


  55.        Priority As Long
  56.        DefaultPriority As Long
  57.        StartTime As Long
  58.        UntilTime As Long
  59.        Status As Long
  60.        cJobs As Long
  61.        AveragePPM As Long
  62.    End Type

  64.    Public Type DEVMODE
  65.        dmDeviceName As String * 32

  67.        dmSpecVersion As Integer
  68.        dmDriverVersion As Integer
  69.        dmSize As Integer
  70.        dmDriverExtra As Integer
  71.        dmFields As Long
  72.        dmOrientation As Integer
  73.        dmPaperSize As Integer
  74.        dmPaperLength As Integer
  75.        dmPaperWidth As Integer
  76.        dmScale As Integer
  77.        dmCopies As Integer
  78.        dmDefaultSource As Integer
  79.        dmPrintQuality As Integer
  80.        dmColor As Integer
  81.        dmDuplex As Integer
  82.        dmYResolution As Integer
  83.        dmTTOption As Integer
  84.        dmCollate As Integer
  85.        dmFormName As String * 32
  86.        dmUnusedPadding As Integer
  87.        dmBitsPerPel As Integer
  88.        dmPelsWidth As Long
  89.        dmPelsHeight As Long
  90.        dmDisplayFlags As Long
  91.        dmDisplayFrequency As Long
  92.        dmICMMethod As Long
  93.        dmICMIntent As Long
  94.        dmMediaType As Long
  95.        dmDitherType As Long
  96.        dmReserved1 As Long
  97.        dmReserved2 As Long
  98.    End Type

  100.    Public Const DM_DUPLEX = &H1000&
  101.    Public Const DM_IN_BUFFER = 8

  103.    Public Const DM_OUT_BUFFER = 2
  104.    Public Const PRINTER_ACCESS_ADMINISTER = &H4
  105.    Public Const PRINTER_ACCESS_USE = &H8
  106.    Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
  107.    Public Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _
  108.              PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)

  110.    Public Declare Function ClosePrinter Lib "winspool.drv" _
  111.     (ByVal hPrinter As Long) As Long
  112.    Public Declare Function DocumentProperties Lib "winspool.drv" _
  113.      Alias "DocumentPropertiesA" (ByVal hwnd As Long, _
  114.      ByVal hPrinter As Long, ByVal pDeviceName As String, _
  115.      ByVal pDevModeOutput As Long, ByVal pDevModeInput As Long, _
  116.      ByVal fMode As Long) As Long
  117.    Public Declare Function GetPrinter Lib "winspool.drv" Alias _
  118.      "GetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, _
  119.      pPrinter As Byte, ByVal cbBuf As Long, pcbNeeded As Long) As Long
  120.    Public Declare Function OpenPrinter Lib "winspool.drv" Alias _
  121.      "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, _
  122.      pDefault As PRINTER_DEFAULTS) As Long
  123.    Public Declare Function SetPrinter Lib "winspool.drv" Alias _
  124.      "SetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, _
  125.      pPrinter As Byte, ByVal Command As Long) As Long

  127.    Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
  128.     (pDest As Any, pSource As Any, ByVal cbLength As Long)

  130.    ' ==================================================================
  131.    ' SetPrinterDuplex.
  132.    '
  133.    '  Programmatically set the Duplex flag for the specified default properties
  134.    '  of the printer driver.
  135.    '
  136.    '  Returns: True on success and False on error. An error also

  138.    '  displays a message box. This message box is displayed for information
  139.    '  only. You must modify the code to support better error
  140.    '  handling in your production application.
  141.    '
  142.    '  Parameters:
  143.    '    sPrinterName - The name of the printer to be used.
  144.    '
  145.    '    nDuplexSetting - One of the following standard settings:
  146.    '       1 = None
  147.    '       2 = Duplex on long edge (book)
  148.    '       3 = Duplex on short edge (legal)
  149.    '
  150.    ' ==================================================================
  151.    Public Function SetPrinterDuplex(ByVal sPrinterName As String, _
  152.    ByVal nDuplexSetting As Long) As Boolean

  154.       Dim hPrinter As Long
  155.       Dim pd As PRINTER_DEFAULTS
  156.       Dim pinfo As PRINTER_INFO_2
  157.       Dim dm As DEVMODE
  158.    
  159.       Dim yDevModeData() As Byte
  160.       Dim yPInfoMemory() As Byte
  161.       Dim nBytesNeeded As Long
  162.       Dim nRet As Long, nJunk As Long
  163.    
  164.       On Error GoTo cleanup
  165.    
  166.       If (nDuplexSetting < 1) Or (nDuplexSetting > 3) Then
  167.          MsgBox "Error: dwDuplexSetting is incorrect."
  168.          Exit Function
  169.       End If
  170.       
  171.       pd.DesiredAccess = PRINTER_ALL_ACCESS
  172.       nRet = OpenPrinter(sPrinterName, hPrinter, pd)
  173.       If (nRet = 0) Or (hPrinter = 0) Then
  174.          If Err.LastDllError = 5 Then
  175.             MsgBox "Access denied -- See the article for more info."
  176.          Else
  177.             MsgBox "Cannot open the printer specified " & _
  178.               "(make sure the printer name is correct)."
  179.          End If
  180.          Exit Function
  181.       End If
  182.    
  183.       nRet = DocumentProperties(0, hPrinter, sPrinterName, 0, 0, 0)
  184.       If (nRet < 0) Then
  185.          MsgBox "Cannot get the size of the DEVMODE structure."
  186.          GoTo cleanup
  187.       End If
  188.    
  189.       ReDim yDevModeData(nRet + 100) As Byte
  190.       nRet = DocumentProperties(0, hPrinter, sPrinterName, _
  191.                   VarPtr(yDevModeData(0)), 0, DM_OUT_BUFFER)
  192.       If (nRet < 0) Then
  193.          MsgBox "Cannot get the DEVMODE structure."
  194.          GoTo cleanup
  195.       End If
  196.    
  197.       Call CopyMemory(dm, yDevModeData(0), Len(dm))
  198.    
  199.       If Not CBool(dm.dmFields And DM_DUPLEX) Then
  200.         MsgBox "You cannot modify the duplex flag for this printer " & _
  201.                "because it does not support duplex or the driver " & _
  202.                "does not support setting it from the Windows API."
  203.          GoTo cleanup
  204.       End If
  205.    
  206.       dm.dmDuplex = nDuplexSetting
  207.       Call CopyMemory(yDevModeData(0), dm, Len(dm))
  208.    
  209.       nRet = DocumentProperties(0, hPrinter, sPrinterName, _
  210.         VarPtr(yDevModeData(0)), VarPtr(yDevModeData(0)), _
  211.         DM_IN_BUFFER Or DM_OUT_BUFFER)

  213.       If (nRet < 0) Then
  214.         MsgBox "Unable to set duplex setting to this printer."
  215.         GoTo cleanup
  216.       End If
  217.    
  218.       Call GetPrinter(hPrinter, 2, 0, 0, nBytesNeeded)
  219.       If (nBytesNeeded = 0) Then GoTo cleanup
  220.    
  221.       ReDim yPInfoMemory(nBytesNeeded + 100) As Byte

  223.       nRet = GetPrinter(hPrinter, 2, yPInfoMemory(0), nBytesNeeded, nJunk)
  224.       If (nRet = 0) Then
  225.          MsgBox "Unable to get shared printer settings."
  226.          GoTo cleanup
  227.       End If
  228.    
  229.       Call CopyMemory(pinfo, yPInfoMemory(0), Len(pinfo))
  230.       pinfo.pDevmode = VarPtr(yDevModeData(0))
  231.       pinfo.pSecurityDescriptor = 0
  232.       Call CopyMemory(yPInfoMemory(0), pinfo, Len(pinfo))
  233.    
  234.       nRet = SetPrinter(hPrinter, 2, yPInfoMemory(0), 0)
  235.       If (nRet = 0) Then
  236.          MsgBox "Unable to set shared printer settings."
  237.       End If
  238.    
  239.       SetPrinterDuplex = CBool(nRet)

  241. cleanup:
  242.       If (hPrinter <> 0) Then Call ClosePrinter(hPrinter)

  244.    End Function
複製代碼
收藏 分享
hello 你好嗎

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題