Index: PlanScan/UI/frameDnaCodes.pas
===================================================================
diff -u -r544 -r625
--- PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 544)
+++ PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 625)
@@ -6,7 +6,7 @@
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
   Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
   Vcl.ExtCtrls, Vcl.Grids, Vcl.DBGrids, AfdrukService, DnaCodeService, Agent, Data.DB,
-  Datasnap.DBClient, UiContext, typinfo, Vcl.Imaging.pngimage;
+  Datasnap.DBClient, UiContext, typinfo, Vcl.Imaging.pngimage, ProboxPrinterKeuze;
 
 type
   TfrmDnaCodes = class(TFrame)
@@ -128,9 +128,20 @@
 var
   DnaCodesStringList: TStringList;
   fProboxAfdrukkenResponse: AfdrukService.ProboxEtiketAfdrukkenResponse;
+  fZoekViaDnaCodeResponse: ZoekViaDnaCodeResponse;
+  fProboxPrinterKeuze: TformProboxPrinterKeuze;
+  fPrinterWaaropAfgedruktMoetWorden: string;
 begin
+  try
+    fProboxPrinterKeuze := TformProboxPrinterKeuze.Create(self);
+    fProboxPrinterKeuze.ShowModal();
+    fPrinterWaaropAfgedruktMoetWorden := fProboxPrinterKeuze.Lijn;
+  finally
+    fProboxPrinterKeuze.Free;
+  end;
+
   DnaCodesStringList := GeefAlleDnaCodesUitGrid();
-  fProboxAfdrukkenResponse := TAgent.Create(fmMain.UiContext).ProboxEtiketAfdrukken(DnaCodesStringList);
+  fProboxAfdrukkenResponse := TAgent.Create(fmMain.UiContext).ProboxEtiketAfdrukken(DnaCodesStringList, fPrinterWaaropAfgedruktMoetWorden);
   try
     if fProboxAfdrukkenResponse.Header.Status <> '200' then begin
       ShowMessage(fProboxAfdrukkenResponse.Header.Omschrijving)