Standarddrucker wechseln per Makro
13.12.2006 10:00:28
lobby007
ich habe ein Makro wie folgt:
Sub Haupt()
Dim ws As Worksheet
Dim pdf As String
Dim zeile As Long
Dim format As String
Set ws = ThisWorkbook.Worksheets(1)
ws.Columns("C").ClearContents
zeile = 2
Do Until IsEmpty(ws.Cells(zeile, "A"))
pdf = ws.Cells(zeile, "A")
format = ws.Cells(zeile, "B")
If Dir(pdf) <> "" Then
If format = "A3" Then
A1: =REGISTER("KERNEL";"WriteProfileString";"ACCC";"String_schreiben")
A2: =String_schreiben("windows";"device";"Minolta PagePro 20 (A3),Minolta PagePro 20,LPT1:")
A3: =KREGISTER(A1)
Else
If format = "A4" Then
A1: =REGISTER("KERNEL";"WriteProfileString";"ACCC";"String_schreiben")
A2: =String_schreiben("windows";"device";"Minolta PagePro 20,Minolta PagePro 20,LPT1:")
A3: =KREGISTER(A1)
Else
A4: =RÜCKSPRUNG()
End If
End If
PDF_Datei_drucken datei:=pdf
Else
ws.Cells(zeile, "C") = "NV"
End If
zeile = zeile + 1
Loop
End Sub
Das Format ob DIN A4 oder DIN A 3 steht in Spalte B.
Er soll jetzt jeweils den passenden Standarddrucker nehmen - habe extra einen für DIN A3 Druck angelegt.
Das Makro geht aber nicht - wer weiß warum?
Vielen Dank Gruß lobby007