アクセスからSAPを使用して印刷しますか？ SAPを開く必要なし

Question

アクセスからSAPを制御して、アクセスのボタンを押すだけでバーコードラベルを印刷したいと考えています。

は現在、私はSAPは、私はオープンSAPをせずにそれを行うための方法を持っていると思い

session.findById("wnd[0]/tbar[0]/okcd").Text ="pickLabel" 
session.findById("wnd[0]").sendVKey 0 
session.findById("wnd[0]/usr/ctxtY_P_MAT").Text = "testbox" 
session.findById("wnd[0]/usr/txtY_P_QUA").Text = "1" 
session.findById("wnd[0]/usr/ctxtY_P_LGN").Text = "test" 
session.findById("wnd[0]/usr/ctxtY_P_PRI").Text = "testPrinter" 
session.findById("wnd[0]/usr/txtY_P_KSC").Text = "test" 
session.findById("wnd[0]/usr/txtY_P_KSC").SetFocus 
session.findById("wnd[0]/usr/txtY_P_KSC").caretPosition = 4 
session.findById("wnd[0]").sendVKey 0 
session.findById("wnd[0]/tbar[1]/btn[8]").press 

開いている場合にのみ動作するスクリプトを持っています。 また、バーコード番号を記録する必要がありますが、この番号は表示されません。

ありがとうございました！

Answer 1

解決策があるかもしれません。 Zebra Z4Mplusステッカープリンタでステッカーを印刷するにはSAPも必要でした。私は最初のステップは、プリンタをインストールした

私のステッカーを生成し、プリンタに直接それらを送信するためにExcelを使用して何をしたか

、それはあなたがに直接接続する必要があるTCP/IPプリンタです。プリンタにはすべての設定を印刷する機能がありましたが、Windowsの高度なプリンタ設定を使用してプリンタのローカルTCP/IPポートを作成して追加しました。 Googleはこの手順を簡単にしました。

次にExcelでワークシートにグラフを挿入しました。

次に図形を作成し、次のコードを作成しました。

このコードは例ですが、私のコードははるかに大きく、すべての要素を生成する必要があります。

私は、次のクラスstackoverflow.com/questions/13909248/generating-code-128-barcodes-using-excelを使用するバーコードの場合pixcels.nl/set-activeprinter-excel/

からGetPrinterFullNames関数を使用-vba

あなたはcode128.fftファイルを見つける必要がありますが、私はどこにあるのか覚えていません。

また、私はこのスレッドだからここ

http://www.mrexcel.com/forum/excel-questions/328457-how-do-you-embed-font-into-excel-file.html

からこのモジュールを得、（AddFontResourceを使用して）管理者がすることなく、システムにフォントを追加するExcelワークシート にフォントを格納するためのモジュールはのために私のコードである必要があり私のステッカーを印刷してください。

Sub PrintExportControl() 

薄暗いMYPRINTER文字列 点心などの文字列 薄暗いプリンタ名などの文字列 薄暗いPrintersListは（）×限り

GenerateExportControl 

myprinter = Application.ActivePrinter 
PrintersList() = GetPrinterFullNames 

For x = 1 To UBound(PrintersList) 
    If InStr(1, PrintersList(x), "ExportControl", vbTextCompare) > 0 Then _ 
     printer_name = PrintersList(x) 
Next x 

Application.ActivePrinter = printer_name 

DoEvents 

Sheet1.Shapes("chtExportControl").Chart.PrintOut , , , , "ExportControl" 
Sheet1.Shapes("chtExportControl").Chart.PrintOut , , , , "ExportControl" 

'Sheet1.Shapes("chtZSMI").Chart.PrintOut , , , , "ExportControl" 
'Sheet1.Shapes("chtZSMI").Chart.PrintOut , , , , "ExportControl" 

Application.ActivePrinter = myprinter 

End Subの

そしてここでは、グラフを生成するための私のコードですステッカーを貼ってあるもの

Sub GenerateExportControl() 

    Dim mychart As Chart 

    Dim picLogo As Shape 

    Dim shpExportControl As Shape 
    Dim shpDate As Shape 
    Dim shpBadge As Shape 

    Dim shpPN As Shape 
    Dim shpSN As Shape 
    Dim shpESN As Shape 
    Dim shpPartDescription As Shape 
    Dim shpCSOrder As Shape 
    Dim shpSO As Shape 

    Dim shpCSOrderBarcode As Shape 
    Dim shpSOBarcode As Shape 

    Dim shp1stMil As Shape 
    Dim shpPUSML As Shape 
    Dim shpUSML As Shape 
    Dim shpITARCID As Shape 
    Dim shpPECCN As Shape 
    Dim shpECCN As Shape 
    Dim shpECL As Shape 

    ' Get the TEMP path 
    Dim FSO As Object, TmpFolder As Object 
    Set FSO = CreateObject("scripting.filesystemobject") 
    Set TmpFolder = FSO.GetSpecialFolder(2) 

    ' Focus a cell 
    ActiveSheet.Range("A92").Select 

    ' Make sure the "Code 128" font is available 
    If FontIsInstalled("Code 128") = False Then 
     CreateFontFile 
     AddFont 
    End If 

    Dim BarcodeGenerator As clsBarcode 
    Set BarcodeGenerator = New clsBarcode 

    Set mychart = Sheet1.Shapes("chtExportControl").Chart 

    mychart.Parent.Width = 288 
    mychart.Parent.Height = 144 
    mychart.ChartArea.Border.LineStyle = xlNone 

    For Each MyShape In mychart.Shapes 
     MyShape.Delete 
    Next 

    Set picLogo = mychart.Shapes.AddPicture("C:\Users\pw46487\Desktop\archive\programs\pwc-faded.jpg", msoTrue, msoTrue, 0, 0, 100, 79.39) 
    picLogo.Left = mychart.Parent.Width/2 - picLogo.Width/2 
    picLogo.Top = mychart.Parent.Height/2 - picLogo.Height/2 

    Set shpExportControl = mychart.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 181, 17) 
    shpExportControl.TextFrame.Characters.Text = "EXPORT CLASSIFICATION" 
    shpExportControl.TextFrame.Characters.Font.Size = 18 
    shpExportControl.TextFrame.MarginLeft = 0 
    shpExportControl.TextFrame.MarginTop = 0 
    shpExportControl.TextFrame.MarginRight = 0 
    shpExportControl.TextFrame.MarginBottom = 0 
    shpExportControl.TextFrame.AutoSize = True 

    Set shpDate = mychart.Shapes.AddTextbox(msoTextOrientationHorizontal, 185, 0, 61, 11) 
    shpDate.TextFrame.Characters.Text = Day(Date) & "-" & MonthName(Month(Date), True) & "-" & Year(Date) 
    If IsDate(Worksheets("Sheet1").Range("B68")) Then _ 
     shpDate.TextFrame.Characters.Text = Day(Worksheets("Sheet1").Range("B68")) & "-" & _ 
     MonthName(Month(Worksheets("Sheet1").Range("B68")), True) & "-" & _ 
     Year(Worksheets("Sheet1").Range("B68")) 

    shpDate.TextFrame.Characters.Font.Size = 12 
    shpDate.TextFrame.MarginLeft = 0 
    shpDate.TextFrame.MarginTop = 0 
    shpDate.TextFrame.MarginRight = 0 
    shpDate.TextFrame.MarginBottom = 0 
    shpDate.TextFrame.AutoSize = True 
    shpDate.Left = ((mychart.Parent.Width - shpDate.Width - shpExportControl.Width)/2) + shpExportControl.Left + shpExportControl.Width 

    Set shpBadge = mychart.Shapes.AddTextbox(msoTextOrientationHorizontal, 185, 0, 100, 11) 
    shpBadge.TextFrame.Characters.Text = "Badge: " & Split(Worksheets("Sheet1").Range("B11"), " ")(0) 
    shpBadge.TextFrame.Characters.Font.Size = 12 
    shpBadge.TextFrame.MarginLeft = 0 
    shpBadge.TextFrame.MarginTop = 0 
    shpBadge.TextFrame.MarginRight = 0 
    shpBadge.TextFrame.MarginBottom = 0 
    shpBadge.TextFrame.AutoSize = True 
    shpBadge.Top = shpDate.Top + shpDate.Height + 2 
    shpBadge.Left = ((mychart.Parent.Width - shpBadge.Width - shpExportControl.Width)/2) + shpExportControl.Left + shpExportControl.Width 

    Set shpPN = mychart.Shapes.AddTextbox(msoTextOrientationHorizontal, 185, 4.5, 100, 11) 
    shpPN.TextFrame.Characters.Text = "PN: " & Worksheets("Sheet1").Range("B1") 
    shpPN.TextFrame.Characters.Font.Size = 11 
    shpPN.TextFrame.MarginLeft = 0 
    shpPN.TextFrame.MarginTop = 0 
    shpPN.TextFrame.MarginRight = 0 
    shpPN.TextFrame.MarginBottom = 0 
    shpPN.TextFrame.AutoSize = True 
    shpPN.Top = shpBadge.Top + shpBadge.Height - 2 
    shpPN.Left = mychart.Parent.Width - shpPN.Width 
    If Worksheets("Sheet1").Range("B1") = "" Then shpPN.Visible = False 

    Set shpSN = mychart.Shapes.AddTextbox(msoTextOrientationHorizontal, 185, 4.5, 100, 11) 
    shpSN.TextFrame.Characters.Text = "SN: " & Worksheets("Sheet1").Range("B4") 
    shpSN.TextFrame.Characters.Font.Size = 11 
    shpSN.TextFrame.MarginLeft = 0 
    shpSN.TextFrame.MarginTop = 0 
    shpSN.TextFrame.MarginRight = 0 
    shpSN.TextFrame.MarginBottom = 0 
    shpSN.TextFrame.AutoSize = True 
    shpSN.Top = shpPN.Top + shpPN.Height - 2 
    shpSN.Left = mychart.Parent.Width - shpSN.Width 
    If Worksheets("Sheet1").Range("B4") = "" Then shpSN.Visible = False 

    Set shpESN = mychart.Shapes.AddTextbox(msoTextOrientationHorizontal, 185, 4.5, 100, 11) 
    shpESN.TextFrame.Characters.Text = "ESN: " & Worksheets("Sheet1").Range("B5") 
    shpESN.TextFrame.Characters.Font.Size = 11 
    shpESN.TextFrame.MarginLeft = 0 
    shpESN.TextFrame.MarginTop = 0 
    shpESN.TextFrame.MarginRight = 0 
    shpESN.TextFrame.MarginBottom = 0 
    shpESN.TextFrame.AutoSize = True 
    shpESN.Top = shpSN.Top + shpSN.Height - 2 
    shpESN.Left = mychart.Parent.Width - shpESN.Width 
    If Worksheets("Sheet1").Range("B5") = "" Then shpESN.Visible = msoFalse 

    Set shpPartDescription = mychart.Shapes.AddTextbox(msoTextOrientationHorizontal, 185, 4.5, 100, 11) 
    shpPartDescription.TextFrame.Characters.Text = Worksheets("Sheet1").Range("B50") 
    shpPartDescription.TextFrame.Characters.Font.Size = 11 
    shpPartDescription.TextFrame.MarginLeft = 0 
    shpPartDescription.TextFrame.MarginTop = 0 
    shpPartDescription.TextFrame.MarginRight = 0 
    shpPartDescription.TextFrame.MarginBottom = 0 
    shpPartDescription.TextFrame.AutoSize = True 
    shpPartDescription.Top = mychart.Parent.Height - shpPartDescription.Height 
    shpPartDescription.Left = mychart.Parent.Width - shpPartDescription.Width 

    Set shpCSOrder = mychart.Shapes.AddTextbox(msoTextOrientationHorizontal, 185, 4.5, 100, 11) 
    shpCSOrder.TextFrame.Characters.Text = "CS:" & Worksheets("Sheet1").Range("B48") 
    shpCSOrder.TextFrame.Characters.Font.Size = 11 
    shpCSOrder.TextFrame.MarginLeft = 0 
    shpCSOrder.TextFrame.MarginTop = 0 
    shpCSOrder.TextFrame.MarginRight = 0 
    shpCSOrder.TextFrame.MarginBottom = 0 
    shpCSOrder.TextFrame.AutoSize = True 
    shpCSOrder.Top = shpPartDescription.Top - shpCSOrder.Height 
    shpCSOrder.Left = mychart.Parent.Width - shpCSOrder.Width 
    If Worksheets("Sheet1").Range("B48") = "" Then shpCSOrder.Visible = msoFalse 


    Sheet1.Shapes("chtBarcode2Pic").Chart.Shapes("TextBox 1").TextFrame.Characters.Text = BarcodeGenerator.Code128_Str(Worksheets("Sheet1").Range("B48")) 
    ' Erase temporary file if exists 
    If FileExists(TmpFolder & "bufferbarcode.jpg") Then Kill TmpFolder & "bufferbarcode.jpg" 
    ' Output picture of barcode to file 
    Sheet1.Shapes("chtBarcode2Pic").Chart.Export TmpFolder & "bufferbarcode.jpg", "jpg" 
    Set shpCSOrderBarcode = mychart.Shapes.AddPicture(TmpFolder & "bufferbarcode.jpg", msoTrue, msoTrue, 0, 0, 100, 22) 
    shpCSOrderBarcode.Top = shpCSOrder.Top - shpCSOrderBarcode.Height + 3 
    shpCSOrderBarcode.Left = mychart.Parent.Width - shpCSOrderBarcode.Width + 3 
    If Worksheets("Sheet1").Range("B48") = "" Then shpCSOrderBarcode.Visible = msoFalse 


    Set shpSO = mychart.Shapes.AddTextbox(msoTextOrientationHorizontal, 185, 4.5, 100, 11) 
    shpSO.TextFrame.Characters.Text = "SO:" & Worksheets("Sheet1").Range("B29") 
    shpSO.TextFrame.Characters.Font.Size = 11 
    shpSO.TextFrame.MarginLeft = 0 
    shpSO.TextFrame.MarginTop = 0 
    shpSO.TextFrame.MarginRight = 0 
    shpSO.TextFrame.MarginBottom = 0 
    shpSO.TextFrame.AutoSize = True 
    shpSO.Top = shpCSOrderBarcode.Top - shpSO.Height + 3 
    shpSO.Left = mychart.Parent.Width - shpSO.Width 
    If Worksheets("Sheet1").Range("B29") = "" Then shpSO.Visible = msoFalse 

    Sheet1.Shapes("chtBarcode2Pic").Chart.Shapes("TextBox 1").TextFrame.Characters.Text = BarcodeGenerator.Code128_Str(Worksheets("Sheet1").Range("B29")) 
    ' Erase temporary file if exists 
    If FileExists(TmpFolder & "bufferbarcode.jpg") Then Kill TmpFolder & "bufferbarcode.jpg" 
    ' Output picture of barcode to file 
    Sheet1.Shapes("chtBarcode2Pic").Chart.Export TmpFolder & "bufferbarcode.jpg", "jpg" 

    Set shpSOBarcode = mychart.Shapes.AddPicture(TmpFolder & "bufferbarcode.jpg", msoTrue, msoTrue, 0, 0, 100, 22) 
    shpSOBarcode.Top = shpSO.Top - shpSOBarcode.Height + 3 
    shpSOBarcode.Left = mychart.Parent.Width - shpSOBarcode.Width + 3 
    If Worksheets("Sheet1").Range("B29") = "" Then shpSOBarcode.Visible = msoFalse 


    Set shp1stMil = mychart.Shapes.AddTextbox(msoTextOrientationHorizontal, shpExportControl.Left, shpExportControl.Top + shpExportControl.Height, 100, 11) 
    shp1stMil.TextFrame.Characters.Text = "1st MILITARY:(" & Worksheets("Sheet1").Range("B21") & ")" 
    shp1stMil.TextFrame.Characters.Font.Size = 13 
    shp1stMil.TextFrame.MarginLeft = 0 
    shp1stMil.TextFrame.MarginTop = 0 
    shp1stMil.TextFrame.MarginRight = 0 
    shp1stMil.TextFrame.MarginBottom = 0 
    shp1stMil.TextFrame.AutoSize = True 
    shp1stMil.Fill.BackColor.RGB = RGB(255, 255, 255) 
    If Worksheets("Sheet1").Range("B21") = "" Then shp1stMil.Visible = msoFalse 

    Set shpPUSML = mychart.Shapes.AddTextbox(msoTextOrientationHorizontal, shpExportControl.Left, shp1stMil.Top + shp1stMil.Height, 100, 11) 
    shpPUSML.TextFrame.Characters.Text = "P-USML:(" & Worksheets("Sheet1").Range("B22") & ")" 
    shpPUSML.TextFrame.Characters.Font.Size = 13 
    shpPUSML.TextFrame.MarginLeft = 0 
    shpPUSML.TextFrame.MarginTop = 0 
    shpPUSML.TextFrame.MarginRight = 0 
    shpPUSML.TextFrame.MarginBottom = 0 
    shpPUSML.TextFrame.AutoSize = True 
    shpPUSML.Fill.BackColor.RGB = RGB(255, 255, 255) 
    If Worksheets("Sheet1").Range("B22") = "" Then shpPUSML.Visible = msoFalse 

    Set shpUSML = mychart.Shapes.AddTextbox(msoTextOrientationHorizontal, shpExportControl.Left, shpPUSML.Top + shpPUSML.Height, 100, 11) 
    shpUSML.TextFrame.Characters.Text = "USML:(" & Worksheets("Sheet1").Range("B23") & ")" 
    shpUSML.TextFrame.Characters.Font.Size = 13 
    shpUSML.TextFrame.MarginLeft = 0 
    shpUSML.TextFrame.MarginTop = 0 
    shpUSML.TextFrame.MarginRight = 0 
    shpUSML.TextFrame.MarginBottom = 0 
    shpUSML.TextFrame.AutoSize = True 
    shpUSML.Fill.BackColor.RGB = RGB(255, 255, 255) 
    If Worksheets("Sheet1").Range("B23") = "" Then shpUSML.Visible = msoFalse 

    Set shpITARCID = mychart.Shapes.AddTextbox(msoTextOrientationHorizontal, shpExportControl.Left, shpUSML.Top + shpUSML.Height, 100, 11) 
    shpITARCID.TextFrame.Characters.Text = "ITAR CID:(" & Worksheets("Sheet1").Range("B24") & ")" 
    shpITARCID.TextFrame.Characters.Font.Size = 13 
    shpITARCID.TextFrame.MarginLeft = 0 
    shpITARCID.TextFrame.MarginTop = 0 
    shpITARCID.TextFrame.MarginRight = 0 
    shpITARCID.TextFrame.MarginBottom = 0 
    shpITARCID.TextFrame.AutoSize = True 
    shpITARCID.Fill.BackColor.RGB = RGB(255, 255, 255) 
    If Worksheets("Sheet1").Range("B24") = "" Then shpITARCID.Visible = msoFalse 

    Set shpPECCN = mychart.Shapes.AddTextbox(msoTextOrientationHorizontal, shpExportControl.Left, shpITARCID.Top + shpITARCID.Height, 100, 11) 
    shpPECCN.TextFrame.Characters.Text = "P-ECCN:(" & Worksheets("Sheet1").Range("B25") & ")" 
    shpPECCN.TextFrame.Characters.Font.Size = 13 
    shpPECCN.TextFrame.MarginLeft = 0 
    shpPECCN.TextFrame.MarginTop = 0 
    shpPECCN.TextFrame.MarginRight = 0 
    shpPECCN.TextFrame.MarginBottom = 0 
    shpPECCN.TextFrame.AutoSize = True 
    shpPECCN.Fill.BackColor.RGB = RGB(255, 255, 255) 
    If Worksheets("Sheet1").Range("B25") = "" Then shpPECCN.Visible = msoFalse 

    Set shpECCN = mychart.Shapes.AddTextbox(msoTextOrientationHorizontal, shpExportControl.Left, shpPECCN.Top + shpPECCN.Height, 100, 11) 
    shpECCN.TextFrame.Characters.Text = "ECCN:(" & Worksheets("Sheet1").Range("B26") & ")" 
    shpECCN.TextFrame.Characters.Font.Size = 13 
    shpECCN.TextFrame.MarginLeft = 0 
    shpECCN.TextFrame.MarginTop = 0 
    shpECCN.TextFrame.MarginRight = 0 
    shpECCN.TextFrame.MarginBottom = 0 
    shpECCN.TextFrame.AutoSize = True 
    shpECCN.Fill.BackColor.RGB = RGB(255, 255, 255) 
    If Worksheets("Sheet1").Range("B26") = "" Then shpECCN.Visible = msoFalse 

    Set shpECL = mychart.Shapes.AddTextbox(msoTextOrientationHorizontal, shpExportControl.Left, shpECCN.Top + shpECCN.Height, 100, 11) 
    shpECL.TextFrame.Characters.Text = "ECL:(" & Worksheets("Sheet1").Range("B27") & ")" 
    shpECL.TextFrame.Characters.Font.Size = 13 
    shpECL.TextFrame.MarginLeft = 0 
    shpECL.TextFrame.MarginTop = 0 
    shpECL.TextFrame.MarginRight = 0 
    shpECL.TextFrame.MarginBottom = 0 
    shpECL.TextFrame.AutoSize = True 
    shpECL.Fill.BackColor.RGB = RGB(255, 255, 255) 
    If Worksheets("Sheet1").Range("B27") = "" Then shpECL.Visible = msoFalse 

End Sub 

幸運