Index: ProScan/UI/HomeScherm.dfm
===================================================================
diff -u -r396 -r534
--- ProScan/UI/HomeScherm.dfm	(.../HomeScherm.dfm)	(revision 396)
+++ ProScan/UI/HomeScherm.dfm	(.../HomeScherm.dfm)	(revision 534)
@@ -13,7 +13,7 @@
   end
   object btnHernoemPallet: TButton [1]
     Left = 56
-    Top = 221
+    Top = 177
     Width = 369
     Height = 81
     Caption = 'Hernoem pallet'
@@ -33,7 +33,7 @@
   end
   object btnAfmeldenProducten: TButton [2]
     Left = 56
-    Top = 120
+    Top = 90
     Width = 369
     Height = 81
     Caption = 'Afmelden producten'
@@ -74,6 +74,25 @@
     WordWrap = True
     OnClick = btnUitloggenClick
   end
+  object btnHerafdrukProboxInhoudEtiket: TButton [5]
+    Left = 56
+    Top = 264
+    Width = 369
+    Height = 81
+    Caption = 'Afdrukken laatste proboxetiket'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -27
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ImageIndex = 7
+    ImageMargins.Left = 10
+    Images = ImagesScherm.ilAlgemeen48
+    ParentFont = False
+    TabOrder = 5
+    WordWrap = True
+    OnClick = btnHerafdrukProboxEtiketClick
+  end
   inherited alAlgemeen: TActionList
     inherited actAfsluiten: TAction
       OnExecute = actAfsluitenExecute
Index: ProScan/UI/HomeScherm.pas
===================================================================
diff -u -r443 -r534
--- ProScan/UI/HomeScherm.pas	(.../HomeScherm.pas)	(revision 443)
+++ ProScan/UI/HomeScherm.pas	(.../HomeScherm.pas)	(revision 534)
@@ -4,21 +4,23 @@
 
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
-  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DrieKnoppenScherm, Vcl.ActnList,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DrieKnoppenScherm, Vcl.ActnList, DnaCodeService, AfdrukService,
   Vcl.StdCtrls, Images, Vcl.ExtCtrls;
 
 type
   TfmHomeScherm = class(TfmDrieKnoppenScherm)
     btnHernoemPallet: TButton;
     btnAfmeldenProducten: TButton;
     btnUitloggen: TButton;
+    btnHerafdrukProboxInhoudEtiket: TButton;
     procedure actAfsluitenExecute(Sender: TObject);
     procedure btnAfmeldenProductenClick(Sender: TObject);
     procedure btnHernoemPalletClick(Sender: TObject);
     procedure btnUitloggenClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure btnHerafdrukProboxEtiketClick(Sender: TObject);
   private
-    { Private declarations }
+
   public
     { Public declarations }
   end;
@@ -29,7 +31,7 @@
 implementation
 
 uses
-  UiContext, ProScanMain;
+  UiContext, Agent, CommonFunctions, ProScanMain;
 
 {$R *.dfm}
 
@@ -47,6 +49,22 @@
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrPallet);
 end;
 
+procedure TfmHomeScherm.btnHerafdrukProboxEtiketClick(Sender: TObject);
+var
+  DnaCode: String;
+begin
+  inherited;
+  if UiContext.LaatsteDnaCode <> '' then begin
+    DnaCode := UiContext.LaatsteDnaCode;
+  end else begin
+    ToonPopupScherm('Laatste DNA-Code niet beschikbaar', 'OK','');
+  end;
+
+
+  Repaint;
+  Self.ModalResult := mrHome;
+end;
+
 procedure TfmHomeScherm.btnHernoemPalletClick(Sender: TObject);
 begin
   inherited;