<code><font color=#000099>Option</font> <font color=#000099>Explicit</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Command1_Click()
  <font color=green>' Standarddrucker merken</font>
  <font color=#000099>Dim</font> prnStandard <font color=#000099>As</font> _
    <font color=#000099>String</font>
  prnStandard = Printer.DeviceName
 
  <font color=green>' Fritz!Fax Drucker setzen</font>
  <font color=#000099>If</font> SetPrinter("fritzfax") <font _
    color=#000099>Then</font>
    <font color=green>' Jetzt Form drucken</font>
    Form1.PrintForm
 
    <font color=green>' Standard-Drucker wiederherstellen</font>
    SetPrinter prnStandard
  <font color=#000099>End</font> <font color=#000099>If</font>
 
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
 
 
<font color=green>' Druckerwechsel</font>
<font color=#000099>Public</font> <font color=#000099>Function</font> _
  SetPrinter(<font color=#000099>ByVal</font> sPrnName <font _
  color=#000099>As</font> <font color=#000099>String</font>) <font _
  color=#000099>As</font> <font color=#000099>Boolean</font>
  <font color=#000099>Dim</font> x <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
 
  <font color=#000099>For</font> x = 0 <font color=#000099>To</font> _
    Printers.Count - 1
    <font color=#000099>If</font> InStr(LCase$(Printers(x).DeviceName), _
    sPrnName) > 0 <font color=#000099>Then</font>
      <font color=#000099>Set</font> Printer = Printers(x)
      SetPrinter = <font color=#000099>True</font>
      <font color=#000099>Exit</font> <font color=#000099>For</font>
    <font color=#000099>End</font> <font color=#000099>If</font>
  <font color=#000099>Next</font> x
<font color=#000099>End</font> <font color=#000099>Function</font></code>